Sokszor kérdés , hogy hogyan figyelhetem, hogy egy applikáció aktív, vagy nem aktív:

private
procedure atlanta(var mmm:TwmSysCommand); message wm_activate;
. . .
procedure Tform1.atlanta;
begin
   if mmm.CmdType<>0 then application.Title:='Aktív'
    else application.Title:='Nem aktív';
end;

Megjegyzés:
Ha az applikáció aktívra, vagy unaktívra vált, a procedura magától lefut