[urahara]

два варианта:

Код:

BorderIcons := [biSystemMenu];

или заглушку поставить

Код:

...
  private
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
...

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  with Message do
    if not (CmdType and $FFF0 = SC_MINIMIZE) then
      inherited;
end;