[angvelem]

Чтобы особо не заморачиваться, вот код подходящий для вашего условия:

  private
    procedure WMGetMinMaxInfo(var M: TWMGetMinMaxInfo); message WM_GetMinMaxInfo;
  public
    { public declarations }
  end;

...

procedure TForm1.WMGetMinMaxInfo(var M: TWMGetMinMaxInfo);
begin
  inherited;
  M.MinMaxInfo^.ptMinTrackSize.y := 600;
  M.MinMaxInfo^.ptMinTrackSize.x := 800;
  M.MinMaxInfo^.ptMaxTrackSize.y := 600;
  M.MinMaxInfo^.ptMaxTrackSize.x := 800;
end;

to Robt:
желаете подискутировать? В личку.