private
  Procedure WMSize( Var msg: TWMSize ); Message WM_SIZE;
...
Procedure TChildForm.WMSize( Var msg: TWMSize );
Begin
 inherited;
 If msg.SizeType = SIZE_MINIMIZED Then
  ...
End;