Делфи. Строки

[furgingerbread]

Здравствуйте!

Подскажите, пожалуйста, как посимвольно ввести строку в массив?
Например, пользователь в Edit набирает рандомные символы, каждый из них нужно записать в память как элемент массива.

Вопрос вот в чем: как правильно считать символы из Edit и поместить их в массив?

Спасибо.

Вот код, где я пытаюсь сделать так, чтобы в форму выводилось количество повторений последовательности "abc", но он все время выводит 0.

var
S: String;
Kabc, I : Integer;
begin
S:=Edit1.Text;
Kabc:=0;
for I:=1 to Length(S)-3 do begin
 if (S[I] ='a') and (S[I+2] = 'b') and (S[I+3] = 'c') then Inc(Kabc)
end;
Edit2.Text:=IntToStr(Kabc);
end;

В чем моя ошибка?

[evg_m]

первый проверяемый S[i]
следующий проверяемый S[i+1]

или проверь свою программу на строке 'a-bc'

[furgingerbread]

Изменила индексы, проверила - все равно выводится 0.

Поняла, в чем ошибка: Length(S)-3 заменить на Length(S)-2. Теперь все работает. Спасибо.