SysTray Program minimieren / wiederherstellen

[TUX_der_Pinguin]

Ich habe mit Delphi 2007 ein kleines Tool gebastelt welches ins SysTray soll, dank der fertigen Komponente (TTrayIcon)
funktioniert das ansich auch recht gut, jetzt habe ich im OnCreate Ereignis gesagt er solle das Hauptformular ausblenden.
Klickt man jetzt in einem Kontextmenü des TrayIcons auf "Wiederherstellen" so soll das Formular wieder angezeigt werden
( pmiRestoreClick ) auch das klappt wunderbar, will ich jedoch das Fenster wieder minimieren passiert gar nichts
ich kann so oft auf den "Button" für minimieren klicken wie ich will, es passiert nichts. Klicke ich jedoch kurz auf den Desktop
so das mein Program den Focus verliert und dann auf Minimieren, verschwindet das Programm sofort in die Taskleiste.
Durch ein "Hide" im OnResize lasse ich dadurch das Fenster komplett verschwinden so das kein Task mehr in der Taskleiste stehen
bleibt, was auch klappt.

Nur das erste mal minimieren nach Programm start, bzw. dem ersten "Wiederherstellen" des Fensters will nicht klappen.
Hat vielleicht jemand von euch eine Idee was das soll, Betriebssystem ist Windows XP Prof. SP2 das Programm ist wie bereits
oben erwähnnt in Delphi 2007 for Win32 R2 geschrieben.

Delphi-Quellcode:

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, StdCtrls, ImgList, ComCtrls;

type
  TfrmMain = class(TForm)
    TrayIcon: TTrayIcon;
    PopupMenu: TPopupMenu;
    pmiSettings: TMenuItem;
    pmiClose: TMenuItem;
    pmiInfo: TMenuItem;
    N2: TMenuItem;
    N1: TMenuItem;
    Icons: TImageList;
    pmiRestore: TMenuItem;
    StatusBar1: TStatusBar;
    MainMenu: TMainMenu;
    mmiProgram: TMenuItem;
    mmiInfo: TMenuItem;
    mitAbout: TMenuItem;
    mitClose: TMenuItem;
    N4: TMenuItem;
    mitSettings: TMenuItem;
    N5: TMenuItem;
    mitControlProg: TMenuItem;
    pmiControlProg: TMenuItem;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    procedure pmiRestoreClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure mitCloseClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frmMain: TfrmMain;

implementation

uses uSettings, uAbout, uGlobal;

{$R *.dfm}


procedure TfrmMain.pmiRestoreClick(Sender: TObject);
begin
  WindowState := wsNormal;     //Fenster Status auf normal setzen
  Show;              //Fenster anzeigen

end;


procedure TfrmMain.FormCreate(Sender: TObject);
begin
  WindowState := wsMinimized;     //Fenster minimieren
  Hide;                   //Fenster ausblenden

end;


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


procedure TfrmMain.mitCloseClick(Sender: TObject);
begin
  Close;
end;


end.