[AND_REY]

Вкладка System компонент Timer добавь

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 keybd_event(VK_F1, 0, 0, 0); // нажатие
 keybd_event(VK_F1, 0, KEYEVENTF_KEYUP, 0); // отпускание
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Timer1.Interval:= 3000; // интервал
 Timer1.Enabled:= Not(Timer1.Enabled); // вкл / выкл
end;