unit QImport3;
...
  TQImport3 = class(TComponent)
...
  protected
...
    procedure DoLoadConfiguration(IniFile: TIniFile); virtual;
...
  public
...
    procedure LoadConfiguration(const FileName: string);
...
  end;
...
procedure TQImport3.LoadConfiguration(const FileName: string);
var
  FIniFile: TIniFile;
begin
  if not FileExists(FileName) then Exit;
  FIniFile := TIniFile.Create(FileName);
  try
    DoLoadConfiguration(FIniFile);
  finally
    FIniFile.Free;
  end;
end;
...
procedure TQImport3.DoLoadConfiguration(IniFile: TIniFile);
var
  i, l, k: integer;
  AStrings: TStrings;
  SectionName,
  Str: string;
  FF: TQImportFieldFormat;
  R: TQImportReplacement;
  TextToFind, ReplaceWith,
  TextToFindHex, ReplaceWithHex,
  TextToFindHexRes, ReplaceWithHexRes: string;
  ignoreCase: Boolean;
  SectionNames: TStrings;
begin
  AStrings := TStringList.Create;
  try
    Self.FileName := IniFile.ReadString(QI_BASE, QI_FILE_NAME, Self.FileName);
    AStrings.Clear;
    Map.Clear;
    IniFile.ReadSection(QI_MAP, AStrings);
    for i := 0 to AStrings.Count - 1 do
...
ну и далее по тексту
...
end;
...

unit QImport3XML;
...
  TQImport3XML = class(TQImport3)
...
  protected
...
    procedure DoLoadConfiguration(IniFile: TIniFile); override;
...
  end;
...
procedure TQImport3XML.DoLoadConfiguration(IniFile: TIniFile);
begin
  inherited;
  with IniFile do begin
    SkipFirstRows := ReadInteger(XML_OPTIONS, XML_SKIP_LINES, SkipFirstRows);
    WriteOnFly := ReadBool(XML_OPTIONS, XML_WRITE_ON_FLY, WriteOnFly);
  end;
end;
...