Ganz davon abgesehen, dass dein Code sich vermutlich nicht kompilieren lässt:
Delphi-Quellcode:
var
x,x2,y,y2:INTEGER;
xy:TPoint;
min4.ScreenToClient(xy);//min4=Timage; // Wo ist hiervor das begin? Oder braucht man das nicht!?
falls vor min4..... ein "begin" wäre, wäre xy nicht initialisiert. Deshalb kommt so ein komischer Wert raus. Also so:
Delphi-Quellcode:
var
xy: TPoint;
begin
xy := Mouse.CursorPos;
xy := ScreenToClient(xy);
// Jetzt ShowMessage
end;
HTH