ClickEvent auf formen (nichts quadratisches)

[Freiwilderer]

moin,
das mit dem floodfill klingt schonmal gar nicht schlecht.
habe das jetzt so hier stehen:

Delphi-Quellcode:

procedure TfrmPlanung.Image2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 image2.canvas.FloodFill(x,y,GetPixel(Image1.Canvas.Handle,x,y),fsBorder);
end;

allerdings macht er mir einfach nur die komplette fläche, in der das bild zu sehen war weiß
irgendwas passt da noch nich so richtig ;D