h:hwnd;
a,i:integer;
begin
h:= FindWindow(nil,'GTA:SA:MP');
ShowWindow(h,SW_MAXIMIZE);
sleep(6000);
keybd_event (Ord('W'), 0, 0, 0);
sleep(1000);
keybd_event(Ord('W'), 0,KEYEVENTF_KEYUP, 0);
keybd_event (VK_F6, 0, 0, 0);
keybd_event(VK_F6, 0,KEYEVENTF_KEYUP, 0);
keybd_event(VK_DIVIDE, 0, 0, 0);
keybd_event(VK_DIVIDE,  0,KEYEVENTF_KEYUP, 0);
keybd_event (Ord('T'), 0, 0, 0);
keybd_event (Ord('I'), 0, 0, 0);
keybd_event (Ord('M'), 0, 0, 0);
keybd_event (Ord('E'), 0, 0, 0);
keybd_event(VK_RETURN, 0, 0, 0);
keybd_event(VK_RETURN,  0,KEYEVENTF_KEYUP, 0);
ShowWindow(h,SW_MINIMIZE);

a:=strToInt(edit1.Text);
for i:=0 to a do sleep(1000);
end;