Objekt an Mausposition binden

[mr_emre_d]

Code:

timer, intervall: 10

OnTimer:
  Shape1.Left := ScreenToClient( Mouse.CursorPos ).X - Shape1.Width div 2;
  Shape1.Top := ScreenToClient( Mouse.CursorPos ).Y - Shape1.Height div 2;

Ist nicht so elegant, aber das müsste für dich reichen