For Loop:= 1 to Length(strText) do
  ShowMessage(strText[Loop]);

참고 하세요.

란티아 님이 쓰신 글 :
: 안녕 하세요.
:
: strText := string;
:
: 이렇게 선언된 변수가 있을 경우에, strText := 'ABCDEFG';
:
: 변수가 저장되어 있을 경우에 문자열을 하나씩 떼어 내서 출력 할 수는 없는지요..
:
: A
: B
: C
: ...
:
: 이런씩으로요...
:
: 필히 변수의 type은 string이여야 합니다..
: string을 나중에 char형 배열로 변환해서 하여도 되구요.
:
: 적다보니...
:
: 좀 이상하네요..
:
: 그럼 좋은 하루 보내세요. ^^