Перемещение курсора я думаю ты уже понял (я тебе уже отвечал).
А Паузу делай с помощью функции Delay(x миличекнд)
Код:
procedure Delay (Seconds: Real);
var
Later: TDateTime;
begin
Later:= Now + (Seconds / (24.0 * 60.0 * 60.0));
While Now < Later do Application.ProcessMessages;
end;