Initialisierung über Stringlist vereben

[Flogo]

Hi alle

Ich initailisiere ein Objekt über Stringlisten. ungefähr so:

Delphi-Quellcode:

type
  TBase = class(TObject)
    VariableA: Integer;
    VariableB: string;
    procedure Initialisiere(Dateinname: string);
  end;

[...]

procedure TBase.Initialisiere(Dateinname: string);
var SL: TSringlist;
begin
  SL := TSringlist.Create;
  SL.LoadFromFile(Dateiname);
  VariableA := StrToInt(SL.Values['VarA']);
  VariableB := SL.Values['VarB'];
  SL.Free;
end;

Das Problem entsteht, wenn ich diese Klasse ableiten und erweitern will:

Delphi-Quellcode:

type
  TDerived = class(TBase)
    VariableC: string;
    procedure Initialisiere(Dateinname: string); override;
 end;

[...]

procedure TDerived.Initialisiere(Dateinname: string);
begin
  inherited;
  //hier sollte VariableC ausgelesen werden
end;

Im Moment fallen mir nur zwei Lösungen ein:
1) Den Text nochmal in eine Stringlist laden.
2) Die Stringlist unter public deklarieren und mit einer procedure EndInitialize wieder freigeben

Beide Lösungen finde ich nicht besonders sauber/schön. Gibts da vielleicht was eleganteres?