Variablen in einer Schleifen ansprechen?

[runningsoft]

Hallo,

habe ein Syntaxproblem mit dem Ansprechen von Variablen.

Ich habe folgenden Record definiert:

Code:

TZwischenZeiten = record
      Startnr : integer;
      Disziplin : String[41];
      Charakter : integer;
      ZwischenZeiten : integer;
      MaxZwischenZeiten : integer;
      LaufZeit1 : TTime;
      LaufZeit2 : TTime;
      LaufZeit3 : TTime;
      LaufZeit4 : TTime;
      LaufZeit5 : TTime;
      LaufZeit6 : TTime;
      LaufZeit7 : TTime;
      LaufZeit8 : TTime;
      LaufZeit9 : TTime;
      LaufZeit10 : TTime;
      Laufzeit11 : TTime;
      Uhrzeit : TDateTime;
      Status : String[6];

Um nun die Laufzeiten 1 - 11 zu überprüfen, nutze ich bisher den unschönen Code

Code:

if Laeufer^.Laufzeit1 <> 0 then
        begin
        Laeufer^.LaufZeit1 := NettoZeit;
        Break;
        end;
      if Laeufer^.Laufzeit2 <> 0 then
        begin
        Laeufer^.LaufZeit3 := NettoZeit;
        Break;
        end;
      if Laeufer^.Laufzeit3 <> 0 then
        begin
        Laeufer^.LaufZeit3 := NettoZeit;
        Break;
        end;

      usw. usw.

Kann ich den Code optimieren, in dem ich das ganze in einer Schleife durchlaufe?

Code:

for i := 1 to 11 do
begin
if Laeufer^.Laufzeit[i] <> 0 then      <--- Hier sagt der Compiler "Undefinierte Bezeichner Laufzeit", was ja auch logisch ist, da der Bezeichner ja Laufzeit1, Laufzeit2 usw. heißt
        begin
        Laeufer^.LaufZeit[i] := NettoZeit;
        Break;
        end;
end;

Hab leider noch keine Variante gefunden, im Quelltext Teile der Variablenbezeichnung durch Variablen zu ersetzen.

Vielen Dank für Eure Hilfe

Steffen