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

var
          SList: TStringList;
          begin
               SList:=TStringList.Create;
               SList.LoadFromFile('C:\test.txt');
               Showmessage(SList[2]);
               SList.Free;					

1:
2:
3:
4:
5:

               SList:=TStringList.Create;
               slList.add('aa');
               slList.add('ah');

               Showmessage(SList[1]);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

const
  iMaxBearbeiter=5;
  sBearbeiter:array[1..iMaxBearbeiter] of String=('AA', 'AH', 'BH', 'CD', 'FG');


var i:Integer;
    sList:TStringList;
begin
  SList:=TStringList.Create; 
  try
    for i:=1 to iMaxBearbeiter do sList.Add(sBearbeiter[i]);
    Showmessage(SList[2]); 
  finally
    SList.Free;
  end; // try
end;					

1:

Stringlist.CommaText := 'aa,ah,ax, ...';