Escondendo janelas filhas minimizadas

{Para esconder janelas filhas minimizadas, basta capturar a mensagem WM_Size, desta maneira: }
type
TForm1 = class(TForm)
public
procedure WMSize(var M : TWMSIZE);Message WM_Size;
end;
implementation
procedure TForm1.WMSize(var M:TWMSIZE);
begin
if M.SizeType=Size_Minimized then
ShowWindow(Handle,Sw_Hide);
end;