Комментарий к оценке: Спасибо за ссылку

Комментарий к оценке: Что-то этот код у меня не пошел. Прога вылетает с ошибкой. Я его чуть изменил и все заработало. Как оказалось, GetWindowText не желательно использовать, так как в чужих приложениях он способен прочитать текст не всегда. Вот что я нашел в хелпе:

However, GetWindowText cannot retrieve the text of a control in another application.
...
If the target window is owned by another process and has a caption, GetWindowText retrieves the window caption text. If the window does not have a caption, the return value is a null string. This behavior is by design. It allows applications to call GetWindowText without becoming unresponsive if the process that owns the target window is not responding. However, if the target window is not responding and it belongs to the calling application, GetWindowText will cause the calling application to become unresponsive.

To retrieve the text of a control in another process, send a WM_GETTEXT message directly instead of calling GetWindowText.

Воспользовался WM_GETTEXT и все заработало!!!
Ниже привожу рабочий код, если кому интересно

procedure TForm1.Timer1Timer(Sender: TObject);
var
  buffer: Pchar;
  Wnd, Len: Cardinal;
begin
  Wnd := GetForegroundWindow;
  if Wnd <> 0 then
  begin
    Len := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0) + 1;
    GetMem(Captions, Len);
    try
      if SendMessage(Wnd, WM_GETTEXT, Len, Integer(Captions)) <> 0 then
        Form1.Caption := captions;
    finally
      FreeMem(Captions)
    end
  end
end;