nie wykonuje sie kod przy probie minimalizacji

Witam!
W moim programie uzywam zakladek AdvPageControl (i advtabsheet), oraz do obslugi traya cooltray;
I teraz chce zrobic tak, ze kiedy minimalizuje aplikacje (przyciskiem na pasku), okno w ogole znika (z paska zadan rowniez), i zostaje tylko taka ikonka w trayu;
W application.onminimize daje taki kod :

  ShowWindow(Handle, SW_HIDE);
  ShowWindow(Application.Handle, SW_HIDE);

natomiast w zdarzeniu odpowiedzialnym za klikniecie w ikonke w trayu (CoolTrayIcon1Click) daje nastepujacy kod :

   ShowWindow(Form1.Handle, SW_SHOW);
   SetForeGroundWindow(Form1.Handle);

I wszystko pieknie dziala przy pierwszej minimalizacji. Gdy zminimalizuje program, a potem klikne w ikonke - pieknie sie przywraca. Ale niestety od tego momentu minimalizacja przestaje byc aktywna - i dalsze klikanie w buttona do minimalizacji nic nie daje. zero reakcji. czemu tak sie dzieje>?

ja rozwiązałem to tak:

FirstTime:boolean=true;
...
procedure TWinTimeMF.CoolTrayIcon1Click(Sender: TObject);
begin
 if FirstTime then
  begin
    Form1.Show;
    FirstTime:=not FirstTime;
  end else
  Application.Restore;
end;

dzieki. dziala.
Mozna dac nawet bez tego firsttime po prostu

   ShowWindow(Form1.Handle, SW_SHOW);
   SetForeGroundWindow(Form1.Handle);
   Application.Restore;

Pozdrawiam. [browar]