[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 мс, по идее должно пока нажата мышка возвращаться в положение, но почему то происходит зацикливание

[ALexandr555]

Такое чувство что он не сразу задает код и после отжатия она остается якобы нажатой

[NumLock]

читай Return Values у GetKeyState.

Код:

  if (GetKeyState(VK_LBUTTON) and $80000000)>0 then
    Label1.Caption:='down'
  else
    Label1.Caption:='up';