Mehrere Objekte in einer Schleife erzeugen

[Kuehter]

noch eine weitere frage
Ich habe von TImage 27 Objekte und das

Delphi-Quellcode:

   for counter := 0 to 2 do
   begin
      case saferend[counter] of
          0: Image1.Picture.Assign(Caller[0]);
          1: Image1.Picture.Assign(Caller[1]);
          2: Image1.Picture.Assign(Caller[2]);
          3: Image1.Picture.Assign(Caller[3]);
          4: Image1.Picture.Assign(Caller[4]);
          5: Image1.Picture.Assign(Caller[5]);
          6: Image1.Picture.Assign(Caller[6]);
          7: Image1.Picture.Assign(Caller[7]);
          8: Image1.Picture.Assign(Caller[8]);
          9: Image1.Picture.Assign(Caller[9]);
          else
          end;

so aufzuschreiben 27 mal scheint mir doch sehr unelegant

gäbe es eine möglichkeit alle 27 objekte per forschleife oder ähnliches aufzurufen?