dynamische Variablennamen

[hummer]

Hallo!
Ich habe ein mehrere Arrays von einem Record und möchte jetzt allen Variablen Werte zuweisen.
Mein Record und meine Arrays sehen so aus.

Delphi-Quellcode:

  TFragen = record
      Frage : string;
      Antwort_A : string;
      Antwort_B : string;
      Antwort_C : string;
      Antwort_D : string;
      Richtig : string[1];
      end;

  Kat1,kat2,Kat3,Kat4,Kat5,Kat6,Kat7,Kat8,Kat9,Kat10,Kat11,Kat12,Kat13,Kat14,Kat15 : Array[1..10] of TFragen; Wenn ich jetzt einem Platz eines Array einen Wert zuweise sieht das so aus.
Kat1[1].Frage := 'Test'; So jetzt möchte ich nich alles selber schreiben sondern das über Findcomponent lösen.
Habe das so probiert für das erste Beispiel.
TFragen(FindComponent('Kat'+IntToStr(1)+'['+IntToStr(1)+'].Frage')) := 'test' Die Einsen werden hinterher natürlich durch Variablen aus for Schleifen ersetzt.
Es kommt aber immer ein Fehler: Ungültige Typumwandlung. Was mache ich falsch?
Vielen Dank schonmal.