[Страдалецъ]

Для этого вам необходимо обработать сообщения. Вот как это выглядит:

Код:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB;

type
  TForm4 = class(TForm)
  private
    procedure WMSysCommand(var message: TWMSysCommand); message WM_SysCommand;
  end;

var
  Form4: TForm4;

implementation
{$R *.dfm}

procedure TForm4.WMSysCommand(var message: TWMSysCommand);
begin
  if message.CmdType = SC_MINIMIZE then
    Application.Minimize
  else
    inherited;
end;

end.