Minimizar todas las ventanas

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  // simular el presioinado de la tecla Windows
  Keybd_event(VK_LWIN, 0, 0, 0);
  // simular el presionado de la tecla M
  Keybd_event(VKKeyScan('m'),0,0,0);
  // simular el despresionado de la tecla Windows
  Keybd_event(VK_LWIN,0,KEYEVENTF_KEYUP,0);
  // simular el despresionado de la tecla M
  Keybd_event(VKKeyScan('m'),0,KEYEVENTF_KEYUP,0);
end;

uses ComObj;... 
var 
  Shell: OleVariant; 
begin 
  Shell := CreateOleObject('Shell.Application') ; 
 
  // minimizar todas las ventanas
  Shell.MinimizeAll;  
 
  // maximizar todas las ventanas
  Shell.UndoMinimizeAll; 
end;