procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Image1.Top := Y + 10; Image1.Left := X + 10; end;