Вопрос о сворачивании программы

[Xo66um]

Всем привет.

Собственно, не могу корректно определить, когда программа сворачивается...

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
 case Msg.CmdType of
  SC_MINIMIZE:
   begin
    Application.MainForm.Hide;
   end;
 end;
end;

Так вроде все хорошо, но не работает кнопка "закрыть" и "развернуть", из-за отсутствия inherited, но если добавить inherited, то форма исчезает, а кнопка на панели задач - нет.

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
 case Msg.CmdType of
  SC_MINIMIZE:
   begin
    Application.MainForm.Hide;
   end;
 end;
 inherited;
end;

Но это полбеды, т.к. если в обоих случаях при видимой форме нажать на кнопку на панели задач, то программа просто свернется, и не выполнится никакого действия.

Помогите кто-нибудь побороть это недоразумение... Примерно неделю пытаюсь справиться с этой проблемой, уже все перепробовал, ничего не помогает

P.S.
Delphi 7

[Stilet]

Вопросы:
1) Использовать OnMinimize компонента Application не вариант?
2) Кажется в Onresize формы можно отслеживать свойство WindowState для определения минимизации

[милт]

procedure TForm1.ApplicationEvents1Minimize(S ender: TObject);
begin
minimiz:=true;
end;

procedure TForm1.ApplicationEvents1Restore(Se nder: TObject);
begin
minimiz:=False;
end;

[Xo66um]

Точно, ApplicationEvents - вариант, но вот OnResize у формы - у меня не получается определить свернутую форму...

procedure TForm1.FormResize(Sender: TObject);
begin
 if Form1.WindowState = wsMinimized then
  begin
   Form1.Hide;
  end;
end;

Ничего не происходит, программа просто сворачивается на панель задач...

Но вопрос решен, Stilet, милт, спасибо вам большое