Tasten senden problem

[Assun]

also mit folgendem code schreibt er mir er findet GTA: San Andreas nicht !

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
const
  mystring: string = 'LXGIWYL';
var
  wh: HWND;
  i: Integer;
begin
  wh := FindWindow('GTA: San Andreas', nil); // Window finden
  Windows.SetFocus(wh); // Focus auf das empfangende Prg. damit es auch Keys verarbeitet ?
  if wh <> 0 then
  begin
    for i := 1 to length(mystring) do
    begin
      // Word() oder Ord() - Hauptsache aus z.B. 'A' wird 65 :-)
      SendMessage(wh, WM_CHAR, Word(mystring[i]), 0);
    end;
    Windows.SetFocus(Handle); // Focus auf dein Prg.
  end else
    ShowMessage('Sorry, Window not found, start the Notepad pleace ?');
end;

obwohl in der TaskBar unten "GTA: San Andreas" steht. also heisst das window auch so oder ??