[Страдалецъ]

Добавлю свои 5 копеек:

Код:

procedure TForm8.Button1Click(Sender: TObject);
begin
 Step := 0;
 Timer1.Interval := 5000;
 Timer1.Enabled := not Timer1.Enabled;
end;

procedure TForm8.Timer1Timer(Sender: TObject);
begin
 Inc(Step);
 case Step
 of 1: SetCursorPos(StrToIntDef(Edit1.Text,0),StrToIntDef(Edit2.Text,0));
    2: SetCursorPos(StrToIntDef(Edit3.Text,0),StrToIntDef(Edit3.Text,0));
    3: SetCursorPos(StrToIntDef(Edit5.Text,0),StrToIntDef(Edit6.Text,0));
    else Step := 0;
 end;
end;