после каждого назначения координат приходится делать sleep(например на пять секунд)... не смейтесь на такой объем кода... сделал на скорую руку...
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
pPoint:Tpoint;
i:integer;
begin
for i:=1 to 3 do begin
if i=1 then begin
pPoint.X:=strtoint(edit1.text);
pPoint.Y:=strtoint(edit2.Text);
sleep(5000);
end
else
if i=2 then begin
pPoint.X:=strtoint(edit3.text);
pPoint.Y:=strtoint(edit4.Text);
sleep(5000);
end
else
if i=3 then begin
pPoint.X:=strtoint(edit5.text);
pPoint.Y:=strtoint(edit6.Text);
sleep(5000);
end;
SetCursorPos(pPoint.x,pPoint.Y);
end;
end;