Fórum Erro estranho no Create de uma Classe. #342297

unit uAreaLoc;

interface

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

const
    (* É a constante que tem o total máximo de campos na área do localizar. *)
  MaxCampo = 50;

type
  TTipoDados = (tdText, tdCheckBox, tdNumeric, tdDate);

  TConfCampo = record
    Mascara: string[30];
    CanSelect: boolean; // Se TRUE deixa localizar pelo campo
    Params: TStringList;
    IsFK: Boolean;
    FKCampo: string[30];
  end;

  TCampo = record
    TipoCol: TTipoDados;
    Tamanho: integer;
    NomeCampo: string[50];
    ConfCampo: TConfCampo;
  end;

  TArea = record
    Titulo: string;
    SQL: string;
    CampoIndice: string;
    CampoLocalizar: string;
    Tabela: string;
    Campos: array[0..MaxCampo] of TCampo;
  end;

  TAreaLoc = class(TObject)
  private
    AreaMem: TArea;
  protected

  public
    Area: TArea;
    constructor Create;
    destructor Destroy; override;
    function UseArea(NumArea: integer): Boolean;

  published

  end;

implementation

{ TAreaLoc }

constructor TAreaLoc.Create;
begin
  inherited;
  AreaMem.Create;
end;

destructor TAreaLoc.Destroy;
begin
  AreaMem.Free;

  inherited;
end;

function TAreaLoc.UseArea(NumArea: integer): Boolean;
begin
  case NumArea of
    0:
      begin
        AreaMem.Titulo := ´´;
        AreaMem.SQL := ´´;
        AreaMem.CampoIndice := ´´;
        AreaMem.CampoLocalizar := ´´;
        AreaMem.Tabela := ´´;

      end;

  end;

  Area := AreaMem;
end;

end.