не работает событие minimaze после скрытия и восстановления формы

[Ecosasha]

Проект создан в Дельфи 7.
на форме размещен компонент RxTrayIcon. в событии OnClick прописывается следующий код:

procedure TFMain.RxTrayIcon1Click(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if FMain.Visible then FMain.visible:=false else FMain.Visible:=true;
end; {RxTrayIcon1Click}

после этого, как только форма была скрыта и показана обратно, перестает работать кнопка minimaze (свертывание) приложения.
В чем дело? Почему так происходит? В чем искать причину?

P.S. Думал, сначала, что из-за того что переопределял события

  {событие при минимизации формы}
  Application.OnMinimize:=ApplicationMinimize;

но даже после того, как закомментировал, все по прежнему. .

В целом суть в том, чтобы при minimaze скрывать программу в трей, а потом при клике на иконку в трее показывать. В целом все это работает, но почему-то перестает работать minimaze? Кто-нибудь сталкивался с этим?

[asmodey1]

Для начала - строка
if FMain.Visible then FMain.visible:=false else FMain.Visible:=true;
легко заменяется на
Visible:=not Visible;
Но это не поможет, поскольку в обработчике должно быть не это, а другое :

procedure TFMain.RxTrayIcon1Click(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Application.Restore;
end;

Вам останется только позаботиться о видимости иконки в трее...

[Ecosasha]

Да действительно, проблема была решена при помощи:

Application.Restore;

Поэтому код переделал на:

 if FMain.Showing then FMain.Hide else
  begin
    Fmain.Show;
    Application.Restore;
  end;

Все заработало нормально. Тему можно закрывать, вопрос решен.

P.S.
to asmodey1 большое спасибо за помощь. (+)

[asmodey1]

Строка Fmain.Show; - совершенно лишняя...

Сообщение от Ecosasha

Дело в том, что я еще обрабатываю событие минимизации

Тогда понятно

[Ecosasha]

Сообщение от asmodey1

Строка Fmain.Show; - совершенно лишняя...

Дело в том, что я еще обрабатываю событие минимизации, то есть:

{переопределяем собитие для минимизацации приложения}
procedure TFMain.ApplicationMinimize(Sender: TObject);
begin
  FMain.Hide;
end; {ApplicationMinimize}

и естественно:

procedure TFMain.FormActivate(Sender: TObject);
begin
  {событие при минимизации формы}
  Application.OnMinimize:=ApplicationMinimize;

end; {Activate}

Поэтому, если просто Application.Restore ставить, то не срабатывает все до конца. Пробовал убирать FMain.Show, но тогда не показывает форму при клике на иконку в трее. .