var
h:hwnd;
begin
h:= findwindow(nil, 'GTA:SA:MP');
sendmessage(h, WM_SYSCOMMAND, SC_Maximize, 0);
Timer1.Enabled:= True;
Clipboard.AsText:= edit1.Text;
end;

Timer1.Enabled:=False;

var
h:hwnd;
begin
h:= Findwindow(nil,'GTA:SA:MP'); // ищем хэндл окна
SendMessage(h, WM_KEYDOWN, VK_F6, 0); // нажимаем клавишу F6

sleep(100);
      keybd_event(VK_CONTROL, 0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);// нажимаем и держим клавишу Ctrl
      keybd_event(VK_CONTROL, 0,KEYEVENTF_EXTENDEDKEY,0); // нажимаем и держим клавишу Ctrl

       keybd_event(ord('V'), 0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);// нажимаем и держим клавишу V
      keybd_event(ord('V'), 0,KEYEVENTF_EXTENDEDKEY,0); // нажимаем и держим клавишу V
// получается комбинация  клавиш ctrl + v

      keybd_event(ORD('V'), 0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); // отпускаем клавишу V
      keybd_event(VK_CONTROL, 0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); // отпускаем клавишу ctrl

      SendMessage(h, WM_KEYDOWN, VK_RETURN, 0); // нажимаем клавишу Enter
      SendMessage(h, WM_KEYup, VK_RETURN, 0); // отпускаем клавишу Enter
      SendMessage(h, WM_KEYUP, VK_F6, 0); // отпускаем клавишу F6
          end;

unit Unit1;

interface

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

type
       TForm1 = class(TForm)
         Edit1: TEdit;
         Timer1: TTimer;
         BitBtn1: TBitBtn;
         BitBtn2: TBitBtn;
         Label1: TLabel;
         procedure BitBtn1Click(Sender: TObject);
         procedure Timer1Timer(Sender: TObject);
         procedure BitBtn2Click(Sender: TObject);
         procedure FormCreate(Sender: TObject);
       private
         { Private declarations }
       public
         { Public declarations }
       end;

var
       Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
h:hwnd;
begin
h:= findwindow(nil, 'GTA:SA:MP');
sendmessage(h, WM_SYSCOMMAND, SC_Maximize, 0);
Timer1.Enabled:= True;
Clipboard.AsText:= edit1.Text;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
h:hwnd;
begin
h:= Findwindow(nil,'GTA:SA:MP');
SendMessage(h, WM_KEYDOWN, VK_F6, 0);

sleep(100);
      keybd_event(VK_CONTROL, 0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
      keybd_event(VK_CONTROL, 0,KEYEVENTF_EXTENDEDKEY,0);

       keybd_event(ord('V'), 0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
      keybd_event(ord('V'), 0,KEYEVENTF_EXTENDEDKEY,0);

      keybd_event(ORD('V'), 0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
      keybd_event(VK_CONTROL, 0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);

      SendMessage(h, WM_KEYDOWN, VK_RETURN, 0);
      SendMessage(h, WM_KEYup, VK_RETURN, 0);
      SendMessage(h, WM_KEYUP, VK_F6, 0);
          end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;