if getkeystate(114) <> 0 then // если нажата клавиша F3, то
timer2.enabled:=true; // включаем таймер2
if getkeystate(115) <> 0 then  // если нажата клавиша F4, то  
timer2.enabled:=false; // выключаем таймер2

var
h: hwnd;
begin
h:= Findwindow(nil,'GTA:SA:MP'); // ищем хэндл окна  
sleep(500); // ожидание 500 миллисекунд
SendMessage(h, wm_keydown, ord('C'), 0); // нажимаем клавишу "C", то есть приседаем
sleep(1000);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0,0,0,0); // нажимаем левую кнопку мыши, то есть стреляем
sleep(100);
Mouse_Event(MOUSEEVENTF_LEFTup, 0,0,0,0); // отпускаем левую кнопку мыши

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ExtCtrls;

type
   TForm1 = class(TForm)
     Timer1: TTimer;
     Timer2: TTimer;
     procedure Timer1Timer(Sender: TObject);
     procedure Timer2Timer(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getkeystate(114) <> 0 then
timer2.enabled:=true;
if getkeystate(115) <> 0 then
timer2.enabled:=false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
h: hwnd;
begin
h:= Findwindow(nil,'GTA:SA:MP');
sleep(500);
SendMessage(h, wm_keydown, ord('C'), 0);
sleep(1000);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, 0,0,0,0);
sleep(100);
Mouse_Event(MOUSEEVENTF_LEFTup, 0,0,0,0);
end;

end.