Habs jetzt so und es funzt super ohne fehler *G*
Delphi-Quellcode:
var p: TPoint;
Wert1: Shortint;
Wert2: Shortint;
begin
p := Image1.ScreenToClient(Mouse.CursorPos);
Wert1 := p.X div 10;
Wert2 := p.Y div 10;
Image2.Left := Wert1*10;
Image2.Top := Wert2*10;
end;