[cloayza]

Amigos hagamos uso de las etiquetas, nos simplifica la lectura de los codigos...

Código Delphi [-]
private
{ Private declarations }
Procedure MinimizarTodo(var Mensaje: TWMSysCommand); message WM_SYSCOMMAND;
public
{ Public declarations }
end;

var
FrmMenu: TFrmMenu;

implementation
// Para usar los Formularios.
uses Login, Entrada, Recepcion, Itebis;
{$R *.dfm}
procedure TFrmMenu.MinimizarTodo;
var
i: Integer;
begin
      with Application do
            for i:= 0 to ComponentCount -1 do
                if  (Components[i] is TForm) then
                    Minimize;
end;

Saludos cordiales