Fórum Erro ao Compilar código no Delphi 10.2 - RX #601021

unit uPrincipal;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TfrmPrincipal = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPrincipal: TfrmPrincipal;

implementation

{$R *.dfm}

end.

unit uDmDados;

interface

uses
  System.SysUtils, System.Classes, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.FB,
  FireDAC.Phys.FBDef, FireDAC.VCLUI.Wait, Data.DB, FireDAC.Comp.Client,
  uConfigBanco, uBiblioteca, Vcl.Forms;

type
  TdmDados = class(TDataModule)
    FDConnection1: TFDConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    procedure CarregaBanco;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmDados: TdmDados;

implementation

{%CLASSGROUP ''Vcl.Controls.TControl''}

{$R *.dfm}

procedure TdmDados.CarregaBanco;
begin
  try
    FDConnection1.Params.Database := GetValorInicial(ExtractFieldName(Application.ExeName), ''CONFIGURACAO'', ''LOCAL''); // erro ???
    FDConnection1.Connected := True;
  except
    frmConfigBanco.ShowModal;
  end;
end;

procedure TdmDados.DataModuleCreate(Sender: TObject);
begin
  CarregaBanco;
end;

end.

unit uBiblioteca;

interface
uses IniFiles, System.SysUtils;
  procedure SetValorInicial(pLocal, pSessao, pSubSessao, pValor: string);
  function GetValorInicial (pLocal, pSessao, pSubSessao: string): string;
implementation
  procedure SetValorInicial(pLocal, pSessao, pSubSessao, pValor: string);
var vArquivo: TIniFile;
begin
  vArquivo := TIniFile.Create(pLocal);
  vArquivo.WriteString(pSessao, pSubSessao, pValor);
  vArquivo.Free;
end;

  function GetValorInicial (pLocal, pSessao, pSubSessao: string): string;
var vArquivo : TIniFile;
begin
  vArquivo := TIniFile.Create(pLocal);
  Result := vArquivo.ReadString(pSessao, pSubSessao, '''');
  vArquivo.Free;
end;
  end.

unit uConfigBanco;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  Vcl.ExtCtrls,  // coloquei essa Vcl na mão
  uBiblioteca;

type
  TfrmConfigBanco = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    procedure Configura;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmConfigBanco: TfrmConfigBanco;

implementation

{$R *.dfm}

{ TfrmConfigBanco }

procedure TfrmConfigBanco.Button1Click(Sender: TObject);
begin
  Configura;
end;

procedure TfrmConfigBanco.Configura;
var vFileName :string;
begin
  //alt+f11 pra jogar a biblioteca dentro de interface
  if OpenDialog1.Execute then
    begin
      Edit1.Text := OpenDialog1.FileName;
      vFileName     := ExtractFilePath(Application.ExeName) + ''config.ini'';
      SetValorInicial(vFileName, ''CONFIGURACAO'', ''LOCAL'', Edit1.Text);
    end;

end;

end.