for inループで文字列から文字を取り出す

String型を使うとマルチバイトなので、うまくいかない。
Unicodeに変換してしまえばok。

program forin;

{$APPTYPE CONSOLE}

var
	s: WideString;
	c: WideChar;

begin
	s := 'あいうえお';
	for c in s do
		WriteLn(c);
end.

• 出力

C:\>forin.exe
あ
い
う
え
お