Image auf die mit der Maus angeklickten Position setzen

[newmusicslamer]

geht nicht wandelt er anscheinend immer noch nicht um.
Bei mir sieht es jetzt so aus:

Code:

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