var
  Form1: TForm1;
  s:pchar;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
getmem(s,100);
getwindowtext(getforegroundwindow,s,100);
form1.Caption := s;
end;
end.