>>63
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200412/04120077.txt
BorderStyle := bsSingle;
BorderIcons.biMaximize := false;
BorderIcons.biMinimize := false;

Constraints を設定。

又は

procedure TForm2.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Resize := False;
end;