[ALexandr555]

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
 foo: TPoint;
begin
if GetKeyState(VK_LBUTTON) <> 0 then
 begin
 timer1.Enabled:=false;
 GetCursorPos(foo);
 while GetKeyState(VK_LBUTTON) <> 0 do
  begin
  SetCursorPos(foo.X,foo.Y);
 end;
 timer1.Enabled:=true;
 end;
end;

таймер 10 мс, по идее должно пока нажата мышка возвращаться в положение, но почему то происходит зацикливание