Fenster bei mehr als einem form richtig minimieren

[Van HelF]

ich habe folgendes geschrieben jedoch wird das form immernoch nicht richtig minimiert.
(das hauptform ist wenn ein anderes form geöffnet ist immer unsichtbar)

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
begin
  application.OnMinimize:=min;
end;

procedure Tform3.min(Sender: TObject);
begin
  form1.WindowState:=wsminimized;
end;