Record property über Variable aufrufen

[Immortalem]

Guten Abend zusammen,
Ich habe folgendes Problem:

Delphi-Quellcode:

function CDatabase.Search(SearchString : String; StartPos, EndPos : Integer; ToSearchIn : String) : TIntArray;
Var
   i : Integer;
Begin
     If (StartPos >= 0) and (EndPos >= 0) and (EndPos < FileSize(_Datei)) then
     Begin
          For i := StartPos to EndPos do
          Begin
               _aktuellerRecord := i;
               LeseZeile();
               If _RAdresse.Name = SearchString then  //Um diese Zeile geht es
               Begin
                    SetLength(Result, Length(Result) + 1);
                    Result[Length(Result) - 1] := i;
               end;
          end;
     end;
     ShowMessage('Kein Datensatz gefunden.');
end;

Dieser Quzellcode funktioniert zwar einwandfrei, doch nun möchte ich die Procedur so umstrukturieren, dass sie so aussieht:

Delphi-Quellcode:

function CDatabase.Search(SearchString : String; StartPos, EndPos : Integer; ToSearchIn : String) : TIntArray;
Var
   i : Integer;
Begin
     If (StartPos >= 0) and (EndPos >= 0) and (EndPos < FileSize(_Datei)) then
     Begin
          For i := StartPos to EndPos do
          Begin
               _aktuellerRecord := i;
               LeseZeile();
               If _RAdresse.ToSerachIn = SearchString then   //Um diese Zeile geht es
               Begin
                    SetLength(Result, Length(Result) + 1);
                    Result[Length(Result) - 1] := i;
               end;
          end;
     end;
     ShowMessage('Kein Datensatz gefunden.');
end;

Wie dies schon zeigt soll dadurch dem Record gesagt werden, von wo denn der Wert genommen werden soll.

Der Record sieht so aus:

Delphi-Quellcode:

    TAdresse = record
             Vorname, Name, Strasse, Ort, Tel, Mail : string[50];
             Plz, BuchstabenID : Integer;
    end;

Ich möchte hier nicht hören, dass ich da nen Case selector einbauen kann sondern eine praktikable Lösung. Dieses Problem hatte ich nun schon öfters ohne eine Lösung zu finden und möchte nun gerne endlich eine Lösung dafür haben. Und RTTI Varianten fallen weg, da diese meines Wissens nach erst ab Delphi 2010 gibt und ich Delphi 5 habe.