Edit и текст

[M@rsel]

Как в тексте Edit'а найти несколько стоящих друг за другом букв?

[Квэнди]

сколько именно?
для 2-х:

var st:char;
st:=edit1.text(1);
for i:=2 to length(edit1.text) do
if edit1.text[i]=st then
shownessage('символ '+st+' повторяется')
else
st:=edit1.text[i];

[M@rsel]

Все,спасибо,помогло!