Delphi перебрать все символы из Edit

[AdDa]

СОбтсвенно вот задача
В Edit записываю Антон Антонович

if Edit1.Text[1]='А' 
then label1.caption:='1';

Это я считываю только 1 символ, а как можно записать так чтоб проходило по всей записи, и если там есть буква 'А' то вы водим '1' ?

[Stilet]

for i:=1 to Length(Edit1.Text)-1 do Edit1.Text[i]...

Принцип ясен?

[Serge_Bliznykov]

только маленькая поправочка.
символы в строке нумеруются от единицы, поэтому последний символ не теряем:

for i:=1 to Length(Edit1.Text) do 
   if Edit1.Text[i]=.....