[NumLock]

ну так:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//  Constraints.MaxWidth:=640;
//  Constraints.MaxHeight:=480;
end;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType=SC_MAXIMIZE then
  begin
    Width:=640;
    Height:=480;
    Message.Result:=0;
  end else inherited;
end;

end.

хотя

Код:

  Constraints.MaxWidth:=640;
  Constraints.MaxHeight:=480;

тожа работает!

Oops, пока добрался до ответа на этот пост уже ответили