keybd_event(VK_LCONTROL, 0, 0, 0); //Нажатие левого Ctrl.
          keybd_event(Ord('X'), 0, 0, 0); //Нажатие 'x'.         
          keybd_event(Ord('X'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 'x'.
          keybd_event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0); //Отпускание левого Ctrl.

var
h:hwnd;
p:pchar;
mk:Cardinal;
begin
         h:=GetWindow(GetForegroundWindow,GW_HWNDFIRST);
         getmem(p,2000);
         GetWindowText(h,p,mk);
      //вместо "Безымянный - Блокнот" пишешь название окна своего приложения
         while (pos('Безымянный - Блокнот',p)=0)and(h<>0) do begin    
          h:=GetWindow(h,GW_HWNDNEXT);
          GetWindowText(h,p,mk);
         end;
          If (h <> 0 )then BringWindowToTop(h);
end;

//так мы сделаем активным окно твоего приложения

var
i: Integer;
begin
for i := 1 to 200 do begin
          keybd_event(VK_LCONTROL, 0, 0, 0); //Нажатие левого Ctrl.
          keybd_event(Ord('X'), 0, 0, 0); //Нажатие 'x'.
Sleep(10);
end;
          keybd_event(Ord('X'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 'x'.
          keybd_event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0); //Отпускание левого Ctrl.
end;

//а так мы вызываем цикл из 200 нажатий CTRL+X