xFire Chatfenster Text senden !?!

[Assun]

also ich habs jetzt so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

const
  mystring: string = 'Ich bin gerade nicht am PC !';
var
  wh: HWND;
  i: Integer;
begin
  wh := FindWindow('ChatSkinWnd', 'blackmambojimbo - Chat-Fenster'); // 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;

und beim klick auf den Button meckert ZoneAlarm sogar "Project1.exe wants to manipulate Keyboard events of xfire.exe" aber ich seh nix davon. soll heissen im eingabefeld von xfire kommt nix an