findcomponent problem mit array

[bonanza]

also ich möchte dieser Komponente bzw dem Array den Wert von "i" zuweisen. Da das ganze aber über meherer verschachtelte Schleifen geht und ich damit 20 verschiedene Arrays anspreche brauche ich FindComponent.


das ganze sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,zustand:integer;
  operation:string;
  z1,z2,z3,z4,z5,z6,z7,z8,z9,z10,z11,z12,z13,z14,z15,z16,z17,z18,z19,z20:Array[0..100] of integer;
begin

   for zustand := 1 to 20 do
    for j:= 0 to 100 do
      for i:= 1 to 100 do
         if (funktion.cells[1,i] = 'z'+inttostr(zustand)) then findcomponent('z'+inttostr(zustand)+'[j]') :=i;


end;

Also ich habe eine Liste von mehreren funktionen und die versuche ich jetzt zuzuordnen.
Also alle die mit z.b. "z1" beginnen wird mit deren Zeile (damit ich die später wiederfinde) in einem Array gespeichert.