FindWindow ? ?

[DeMo]

Aso klingt logisch ^^

aber hier wieso geht da net ??

Code:

var
  Form1: TForm1;
  hWinamp: HWND;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  hWinamp:= findwindow('Winamp',0);
  if hWinamp <> 0 then
    ShowMessage(' Habe Handle ^^')
  else
    ShowMessage(' Hat net Geklappt -__-');
end;

also das prog geht aba er bekommt die Handle net, also erscheint die nachricht "hat net geklappt -__-". warum ?? ist der name falsch ?? oda muss es anders rum sein ich weiß net was da falsch ist !
Bitte um hilfe