procedure pravo;
begin
  keybd_event(vk_right, 0, 0, 0);
  keybd_event(vk_right, 0, KEYEVENTF_KEYUP, 0);
  end;

procedure levo;
begin
  keybd_event(vk_left, 0, 0, 0);
  keybd_event(vk_left, 0, KEYEVENTF_KEYUP, 0);
  end;

  procedure up;
begin
  keybd_event(vk_up, 0, 0, 0);
  keybd_event(vk_up, 0, KEYEVENTF_KEYUP, 0);
  end;

  procedure down;
begin
  keybd_event(vk_down, 0, 0, 0);
  keybd_event(vk_down, 0, KEYEVENTF_KEYUP, 0);
  end;


procedure TForm1.Timer1Timer(Sender: TObject);
var
  a:byte;
  g:integer;
  begin
    g:=0;
  while g < 90 do
  begin
  a:=random(4);
if a=0 then pravo;
if a=1 then down;
if a=2 then levo;
if a=3 then up;
g:=g+1;
   end;
end;

    

down:
  invoke keybd_event,VK_DOWN, 0, 0, 0
  invoke keybd_event,VK_DOWN, 0, KEYEVENTF_KEYUP, 0
  ret 0
    

.data
timerDelayInMS dd 2000; every 2 seconds
timerThreadID dd 0; this will holder the timer thread ID
timerThreadHandle dd 0; the thread handle
...
.code
CreateTimer:
  invoke CreateThread, 0, 0, TimerProc, 0, 0, timerThreadID
  mov dword[timerThreadHandle],eax
  ret 0
    

TimerProc: ;referenced in the above code snippet for CreateThread
push ebx esi edi

.TimerLoop: ;infinitely loop with a delay
invoke SleepEx, dword[timerDelayInMS],0 ;timerDelay referenced in above snippet
;SleepEx with suspend the thread for timerDelayInMS milliseconds

mov ebx,0 ; g=0
.GLoop: ;while g<90

;random(4) we can simulate this in ASM using RDTSC
;this will retrieve the processors internal tick counter
;while it is NOT random it is pseudo random enough for our use
rdtsc ; a = rand(4); a will be our esi register
mov esi,eax
and esi,3 ;clamp result between 0 and 3 
;this is a shortcut because 4 is a power of two 
;so 4-1 can be used as a clamping mask
cmp esi,0 ; if a = 0
jne .skip0
call pravo
.skip0:
cmp esi,1 ; if a = 1
jne .skip1
call down
.skip1:
cmp esi,2 ; if a = 2
jne .skip2
call levo
.skip2:
cmp esi,3 ; if a = 3
jne .skip3
call up
.skip3:

add ebx,1 ;g = g + 1
cmp ebx,90
jl .GLoop ; while g < 90 continue looping

jmp .TimerLoop

pop edi esi ebx
ret 4