[Bishop]

примерно вот так:
var

hWindow: HWND;
sText: array [0..255] of char;

begin

hWindow = GetForegroundWindow();
GetWindowText(hWindow, @sText, 255);

end;