基本の再確認1 for..in..doあれこれ。

var
  c: Char;
  s: string;
  arr: TArray<string>;
begin
  s := 'Hello, Wahaa world';
  for c in s do { 1文字ずつ取り出す };
  for c in Copy(s, 8, Length(s)) do { 8文字目から1文字ずつ取り出す };
  arr := TArray<string>.Create('Hello', 'Wahaa', 'world');
  for s in arr do { 配列から文字列を1つずつ取り出す };
  for s in Copy(arr, 1, Length(arr)) do { 配列からインデックス1以降の文字列を1つずつ取り出す };
end;