[Ankor]

Большое спасибо angvelem.

Вот как получилось и работает:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  Style: Longint;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);
  SetWindowLong(Handle, GWL_STYLE, Style or WS_SYSMENU or WS_MINIMIZEBOX);

end;

Исправил, как сказал ниже angvelem, всё работает.