Al Minimizar app me la deja pequeña encima de la Barra de tareas

[GerTorresM]

Esta solución la tome de este link http://www.clubdelphi.com/trucos/imprimir.php?id=69 y quedo solucionado mi problema asi

Código Delphi [-]

procedure TFMenu.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType = SC_Minimize) then
    MinimizarTodo
  else if (Msg.CmdType = SC_RESTORE) then
    ResturarTodo;
  DefaultHandler(Msg);
end;


procedure TFMenu.MinimizarTodo;
begin
  keybd_event(VK_LWIN,MapvirtualKey( VK_LWIN,0),0,0) ;
  keybd_event(Ord('M'),MapvirtualKey(Ord('M'),0),0,0);
  keybd_event(Ord('M'),MapvirtualKey(Ord('M'),0),KEYEVENTF_KEYUP,0);
  keybd_event(VK_LWIN,MapvirtualKey(VK_LWIN,0),KEYEVENTF_KEYUP,0);
end;

procedure TFMenu.ResturarTodo;
begin
  keybd_event(VK_LWIN, MapvirtualKey( VK_LWIN, 0), 0, 0);
  keybd_event(VK_SHIFT, MapvirtualKey( VK_SHIFT, 0), 0, 0);
  keybd_event(Ord('M'), MapvirtualKey( Ord('M'), 0), 0, 0);
  keybd_event(Ord('M'),MapvirtualKey(Ord('M'),0),KEYEVENTF_KEYUP,0);
  keybd_event(VK_SHIFT,MapvirtualKey(VK_SHIFT,0),KEYEVENTF_KEYUP,0);
  keybd_event(VK_LWIN,MapvirtualKey(VK_LWIN,0),KEYEVENTF_KEYUP,0);
end;