Schleife für aufsteigende Arraynamen

[xxsasch4xx]

ich würde gerne 20 arrays die unterschiedliche zahlen am ende haben werte von true zuweissen

die arrays sind global so deklariert:

Delphi-Quellcode:

name1 :array [1..20] of boolean;
name2 :array [1..20] of boolean;
...
bis
name20:array[1..20] of boolean;
 // kann man die deklaration von 20 arrays auf einmal auch optimieren?

1. Möglichkeit:

Delphi-Quellcode:

var i:integer;
begin
  for i :=1 to 20 do
  'name'+inttostr(i)[i]:=true;

2. Möglichkeit:

Delphi-Quellcode:

var i:integer;
begin
  for i :=1 to 20 do
  TArray(form1.FindComponent('name'+IntToStr(i)[i])):=True;
//so ging das immer bei image bildern aber hier wird es wohl nicht funktionieren oder?

er soll also sozusagen von array1[1] bis array20[20]
auf einen schlag alles true setzen