[ApplicatiOn]

Код:

var
i:byte=0;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:= i+1;
case i of
1:  
begin
keybd_event(vk_f1,0, 0,0);
 keybd_event(vk_f1,0, keyeventf_keyup,0);
timer1.interval := 3000;
end;
2:
begin

keybd_event(vk_insert,0, 0,0);
 keybd_event(vk_insert,0, keyeventf_keyup,0);

timer1.interval := 1000;
end;
//... сколько надо
end;

end;