Q:

AccessViolation ao alterar BorderStyle

Olá!
Estou tentando alterar a propriedade borderstyle no evento onCreate do form, mas ocorre o erro AccessViolation, alguém sabe como posso resolver?
Meu código:
procedure TfmContasPagar.FormCreate(Sender: TObject);
var
  RedimensionarTela : String;
begin
      RedimensionarTela := TUtil.Sql.SQLLinha('SELECT REDIMENSIONAR_TELA FROM USUARIOS WHERE COD_USUARIO = ' + IntToStr(Codigo_Usuario), Database);
      if RedimensionarTela = 'N' then
         fmContasPagar.BorderStyle := bsSingle
      else
         fmContasPagar.BorderStyle := bsSizeable;
end;

A:

Fiz da seguinte maneira:
procedure TfmContasPagar.FormCreate(Sender: TObject);
var
  RedimensionarTela : String;
begin
      RedimensionarTela := TUtil.Sql.SQLLinha('SELECT REDIMENSIONAR_TELA FROM USUARIOS WHERE COD_USUARIO = ' + IntToStr(Codigo_Usuario), Database);
      if RedimensionarTela = 'N' then
         Self.BorderStyle            := bsNone;
         Self.BorderIcons            := BorderIcons - [biMaximize];
         Self.Constraints.MaxHeight  := 570;
         Self.Constraints.MaxWidth   := 870;
      else
         Self.BorderStyle            := bsSizeable;
         Self.Constraints.MaxHeight  := 0;
         Self.Constraints.MaxWidth   := 0;
end;

