TextOut-Problem

[Fib]

Moin,
ich hoff' mal das gehört hier rein.
Also ich hab folgenden Code:

Code:

procedure TForm1.Button4Click(Sender: TObject);
var
  hwnd : Thandle;
  s : string;
begin
   hwnd := Application.handle;
   s := 'hallo du';
   if TextOut(hwnd, Form1.Left+322, Form1.Top+8, @s, 0) then ShowMessage('ja')
     else ShowMessage('nein');
end;

Das TextOut gibt zwar true zurück es wird aber nichts geschrieben. Der letzte Parameter soll eigentlich die Anzahl der Zeichen in dem String sein, allerdings gibt TextOut immmer False zurück, wenn der anders als null ist.
Was mach ich falsch?

MfG

Problem hat sich schon gelöst.