PascalScript и функция SendMessage

[Rec0il]

Доброе время суток.
Пишу программу, что-то типа создания своих макросов для мышки..
Для этого использую Remobjects PascalScript.

Реализовал несколько функций, работа с курсором, эмуляция нажатия клавиш.. и тд..
Столкнулся с проблемой. Хочу сделать процедуру посыла нажатия клавиши в чужое окно.
Пробую так:

в приват секции:

  private
    { Private declarations }
procedure SendKey(window: PWideChar; Key: Word);

в евенте PSScript1Compile регистрирую свою процедуру

procedure TForm1.PSScript1Compile(Sender: TPSScript);
begin
  Sender.AddMethod(Self, @TForm1.SendKey, 'procedure SendKey(window: PWideChar; Key: Word);');
end;

сама процедура:

procedure TForm1.SendKey(window: PWideChar; Key: Word);
var
  H: HWND;
begin
  H := FindWindow(nil, window);
  if H <> 0 then
  begin
    SendMessage(H, WM_KEYDOWN,  Key, MakeLong(0, MapVirtualKey(Key, 0)));
    SendMessage(H, WM_KEYUP, Key, MakeLong(0, MapVirtualKey(Key, 0)));
  end;
end;

Программа компилится без ошибок.
В мемо пишу свою процедуру

SendKey('Counter-Strike', $20);  // пытаюсь в окно кс послать нажатие пробела

Пытаюсь запустить макрос - не запускает. PSScript1 не может скомпилить это.
В чем ошибка я не знаю, как отлавливать ошибку - тоже не знаю.

Запускаю таким образом

      if PSScript1.Compile then
      begin
      PSScript1.Execute;
      end
      else
      begin
      showmessage(что-то не так.);
      end;

Буду благодарен за любую помощь.
Весь день убил на эту проблему.

[Rec0il]

Тему можно закрывать, нашёл решение. Точнее на другом ресурсе ответили)
Дело было в том, что у PascalScript`a нету PWideChar.
По этому передал в качестве параметра string, а в самой процедуре перевёл string в PWideChar.