1:
2:
3:
4:
5:
6:
7:
8:
9:

var a,b,c:string;
    varliste:TStringlist;

   varliste[0]:='a';
   varliste[1]:='b';
   varliste[2]:='c';

 for lauf=0 to 2 do
   ???varliste[lauf]???:='Test';					

1:
2:
3:
4:
5:

var abc : Array of string;
[..]
setlength(abc,3);
for lauf=0 to 2 do   
   abc[lauf]:='Test';