como minimizar todo a la vez?

[Bacterion]

Puedes hacer un Application.Minimize...
o recorrer la lista Forms del Objeto Screen y hacerle a cada uno un minimize...
(siempre que el form[n] no sea el que se está minimizando, claro)
algo así como

procedure MinimizeThemAll;
begin
with screen do
for i = 1 to FormCount - 1 do
{ este check no hace falta si no estamos en el resize o en
algun método del form que salte a consecuencia del minimizado }
if Forms[i] <> Self then
Forms[i].WindowState = wsMinimized;
end;