Active Window on change?

[MaToBe]

Delphi-Quellcode:

procedure TMainForm.TActiveWindowTimer(Sender: TObject);
begin
  GetForegroundWindow;
  WindowText := GetWindowText(GetForegroundWindow, nil, nil);

  if WindowText <> WindowText2 then
  begin
     Memo1.SelText:= WindowText;
     WindowText2 := WindowText;
  end;
  
end;

habs mal so versucht, allerdings stimmen die Parameter von GetWindowText nicht ?!?

und noch ne Frage in der Hilfe steht das "GetWindowText" einen Integerwert zurückliefert. Aber ich will doch wissen wie das Fenster heißt als z.B. Mozilla Firefox oder Notepad oder so .