Hallo zusammen

[Snoop007]

hallöle und willkommen ,
klick auf das plus auf bordericons im objektinspektor
und wähle biMaximize false

oder zur laufzeit

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderIcons := [biSystemMenu,biMinimize];
end;