for i:=0 to List.count-1

var
  a: array [0..2] of string;
  List: TList<string>;
  i: integer;
begin
  a[0]:='a';
  a[1]:='b';
  a[2]:='c';

  List:=TList<string>.create;
  List.Add('a');
  List.Add('b');
  List.Add('c');

  for i:=Low(a) to High(a) do  //работает
    begin
      lbl1.Caption:= a[i]+', ';
    end;

  for i:=low(List) to High(List) do //НЕ работает
    begin
      lbl1.Caption:= List.Items[i]+', ';
    end;

 for i:=low(List.count) to High(List.count) do //НЕ работает
    begin
      lbl1.Caption:= List.Items[i]+', ';
    end;

var
  ...
  Item: string;
begin
  ...
  for Item in List do
    begin    
      lbl1.Caption := Item + ', ';
    end;
  ...
  end;