[_CALI]

Código Delphi [-]
procedure TFrmChild.WMSYSCommand(var Message: TWMSYSCommand);
begin
inherited;
if Message.CmdType = SC_MINIMIZE then
  if Application.MainForm.ActiveMDIChild.WindowState = wsMinimized then
     BringToFront;
// SetWindowPos(Self.Handle,HWND_TOP,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;

si hay alhuna otra respuesta agredecere mucho