[ecfisa]

Hola agustin.

Pienso que podrías hacer así:

procedure TForm1.MinimizarTodo;
var
  i: Integer;
begin
  with Application do
    for i:= 0 to ComponentCount -1 do
      if (Components[i] is TForm) then
        Minimize;
end;

O, en lugar de Minimize, también:

   SendMessage(TForm(Components[i]).Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);

Saludos.