[BoRoV]

Код:

MessageDlg('Вы видите форму?', mtConfirmation, [mbYes, mbNo], 0)

Ну а вообще:

Код:

var
  cap: array[0..255] of char;
begin
  GetWindowText(GetActiveWindow(), cap, 256);
  if Form1.Caption = cap then
    ShowMessage('Видит')
  else
    ShowMessage('Не Видит');
end;