Code:

private

  Procedure WMSize( Var msg: TWMSize ); Message WM_SIZE;

...

Procedure TChildForm.WMSize( Var msg: TWMSize );

Begin

inherited;

If msg.SizeType = SIZE_MINIMIZED Then

   ...

End;