Warum so kompliziert?
Delphi-Quellcode:
procedure MinimizeAll;
var
i: Integer;
begin
//Form1 ist das Hauptfenster der Anwendung
for i := Form1.MDIChildCount - 1 downto 0 do
Form1.MDIChildren[i].WindowState := wsMinimized;
end;
Einfach diese Prozedur bei dir einfügen und MinimizeAll aufrufen.