如何防止在Delphi中调整表单大小？

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle := bsSizeToolWin;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle := bsSizeable;
end;

procedure TForm1.WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo);
begin
  inherited;
  Message.MinMaxInfo.ptMinTrackSize.X := ClientWidth;
  Message.MinMaxInfo.ptMinTrackSize.Y := ClientHeight;
  Message.MinMaxInfo.ptMaxTrackSize.X := ClientWidth;
  Message.MinMaxInfo.ptMaxTrackSize.Y := ClientHeight;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BorderStyle := bsSizeable;
  Application.HookMainWindow(HookProc);
end;

function TForm1.HookProc(var Message: TMessage): Boolean;
begin
  Result := False;
  if Message.Msg = WM_GETMINMAXINFO then
  begin
    with TWMGetMinMaxInfo(Message).MinMaxInfo^ do
    begin
      ptMinTrackSize.X := ClientWidth;
      ptMinTrackSize.Y := ClientHeight;
      ptMaxTrackSize.X := ClientWidth;
      ptMaxTrackSize.Y := ClientHeight;
    end;
    Result := True;
  end;
end;