Minimize other application from yours

 You must obtain their handle and later send it the SW_MINIMIZE message:

Procedure TForm1.Button1Click ( Sender : TObject ) ;

Var

   hWnd        : integer ;

Begin

   hWnd := FindWindow ( Nil , 'Calculator' ) ;

   ShowWindow ( hWnd , SW_MINIMIZE ) ;

End ;