[MAD_EVAL]

Можно влепить такое на таймер

Код:

procedure SET_CURSOR;
var
POINT : TPoint;
STEP : integer;
T1, T2 : integer;
begin
    FOR STEP := 0 TO 2 DO
        begin
            CASE STEP OF
            0: begin POINT.X := StrToInt(Edit1.text); POINT.Y := StrToInt(Edit2.text); end;
            1: begin POINT.X := StrToInt(Edit3.text); POINT.Y := StrToInt(Edit4.text); end;
            2: begin POINT.X := StrToInt(Edit5.text); POINT.Y := StrToInt(Edit6.text); end;
            END;
            SetCursorPos(POINT.X, POINT.Y);
                T1 := GetTickCount;
                repeat
                   T2 := GetTickCount;
                   Application.ProcessMessages;
                until (T2 - T1) >= 1000;    // задержка 1 сек
        end;
end;