50 Records nacheinander über eine Schleife ansprechen?

[sAibo]

Hallo alle zusammen

Also mein Problem:
Ich brauche 50 Records, die ich später alle mit unteschiedlichen Werten belgen will.
Es geht von kt1, kt2, kt3 ... bis kt50;
Da ich nicht jedesmal im Code stehen haben will

Delphi-Quellcode:

kt1.a:=wert1;
kt1.b:=wert2; usw.

Dachte ich natürlich an eine Schleife

Delphi-Quellcode:

 
for i:=1 to 50 do         // 50 karten durchlaufen
     begin
          karte.Atk:=wert1;
          karte.Def:=wert2;
          karte.Level:=wert3;
          karte.Mode:=wert4;
          karte.Haltbarkeit:=wert5;
     end;

Für Karte soll dann jeweils kt1, kt2, kt3 usw stehen
Also z.B.
karte:=('kt'+IntToStr(i)); Wenn ich dass jedoch so lösen will, dann erkennt er mir Karte nicht mehr als das eigentliche Record kt1, kt2, kt3... usw. sonder halt als String, dessen Wert so aussieht wie der Name des Records


Wie bekomme ich es hin, dass er jedes mal den richtigen Record anspricht (Alle 50 nacheinander durch)?


Danke schon mal im voraus

Gruß Tobias