Active Window on change?

[MaToBe]

Delphi-Quellcode:

procedure TMainForm.TActiveWindowTimer(Sender: TObject);
var Wnd: HWND;
    sTitle: string;
begin
  Wnd := GetForegroundWindow;
  if Wnd <> 0 then
    begin
      SetLength(sTitle,GetWindowTextLength(Wnd));
      GetWindowText(Wnd,PChar(sTitle),Length(sTitle));
      AktivesFenster := sTitle;
    end;

    if AktivesFenster <> AktivesFenster2 then
    begin
      Memo1.SelText := ('  <<<' + AktivesFenster + '>>>  ');
      AktivesFenster2 := AktivesFenster;
    end;
end;

Danke an DeddyH für den Code.

Habe es jetzt so gemacht, allerdings wird im Memo (oder auch im ShowMessage (habs mal im ShowMessage getestet)) nicht der vollständige Titel angegeben. Es fehlt immer der letze Buchstabe + die 3 > ?!?

zB Fenstertitel = Word => Ausgabe = <<<Wor