procedure TCTSForm.CTSButton1Click(Sender: TObject);
var
   GameHandle:THandle;
   i:Integer;
begin
  GameHandle := CTSOpenProcess('Game.exe');
  qwe := TVarAddress.Create;
  if GameHandle = 0 then begin
     ShowMessage('Процесс Game.exe не найден!');
     Exit;
  end;
  if AOBScan(GameHandle,0, $5FFFFFFF,True,True,'UUhybFNHcW5VfHNtUFlybFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFdHU25SV1ko',qwe,0) then begin
     for i := 0 to qwe.Count-1 do
       WriteBytes(GameHandle,qwe[i], 0, 'UUhyJw%%');
     ShowMessage('Активировано');
  end else
     MessageDlg('Не удалось активировать',mtError,[mbOK],0);
end;

procedure TCTSForm.CTSButton1Click(Sender: TObject);
var
   GameHandle:THandle;
   i:Integer;
begin
  GameHandle := CTSOpenProcess('Game.exe');
  qwe := TVarAddress.Create;
  if GameHandle = 0 then begin
     ShowMessage('Процесс Game.exe не найден!');
     Exit;
  end;
  if AOBScan(GameHandle,0, $5FFFFFFF,True,True,'UUhybFNHcW5VfHNtUFlybFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFVYT25UV1FtU1lQbFdHU25SV1ko',qwe,0) then begin
     for i := 0 to qwe.Count-1 do
       ShowMessage(qwe[i]);
  end else
     MessageDlg('Не удалось активировать',mtError,[mbOK],0);
end;