Как отобразить состояние формы

const 
  DefMsgNorm = 'MyApp version 1.0'; 
  DefMsgIcon = 'MyApp. (Use F12 to turn of)';

И две глобальные переменные:

var 
  ActMsgNorm : String; 
  ActMsgIcon : String; 

При открытии главной формы, мы должни инициализировать переменные.

procedure TFormMain.FormCreate( Sender : TObject ); 
begin 
  ActMsgNorm := DefMsgNorm; 
  ActMsgIcon := DefMsgIcon; 
  Application.Title := ActMsgNorm; 
end;

Затем, нужно только добавить это в событие OnResize:

procedure TFormMain.FormResize( Sender : TObject ); 
begin 
  If ( FormMain.WindowState = wsMinimized ) then 
    Application.Title := ActMsgIcon
  else 
    Application.Title := ActMsgNorm; 
end; 

Начиная с Windows NT этот код не работает. Вот код:

public 
  { Public declarations } 
  procedure SysCmd(var Message: TWMSysCommand);
      message WM_SYSCOMMAND; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
     ActMsgNorm := DefMsgNorm; 
     ActMsgIcon := DefMsgIcon; 
     Application.Title := ActMsgNorm; 
end; 

procedure TForm1.SysCmd(var Message: TWMSysCommand); 
begin 
      if Message.CmdType = SC_MINIMIZE 
      then 
          begin 
               Application.Title := actMsgIcon; 
               Message.Result := 1; 
          end 
      else 
             Application.Title := actmsgnorm; 
      inherited; 
end;