Image auf die mit der Maus angeklickten Position setzen

[newmusicslamer]

Jetzt habe ich es mit diesem Code versucht:

Code:

procedure TForm1.Image2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  p: TPoint ;
begin
 image4.Visible := true ;
 image4.left := p.Y ;
 image4.top :=  p.X ;
 p := Mouse.CursorPos ;
end;

aber das Bild verschwindet irgendwo im Nirgendwo. Es geht auch nicht mit image4.left := p.X und dann halt bei top das Y