WideStringはUnicodeじゃなくって2バイト文字列
s: WideString;
s:='感じ';Writeln(s[1]); // '感'
ってこと