あるゲームにキー入力を送信するプログラムをつくっています。
APIのSendmessage関数をつかって、キーダウンイベントで取得したキーを
送信してみたのですがESCキーがうまく送信されませんでした。
いい方法ないでしょうか？

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
hUO: HWND;
begin
hUO:=FindWindow('あるネットワークゲーム',nil); {ハンドルを取得}
SendMessage(hUO,WM_SYSKEYDOWN,key,0); {キー送信}
Label1.Caption:=InttoStr(key);
end;