Cтроки Delphi 7

[Op1nG.Spark]

Доброго времени суток.
Дана строка. Подсчитать самую длинную последовательность подряд идущих букв а

я написал код который считает но он считает только самые первые написанные символы 'а' подряд идущие.например пишу ааа аааааа
ответ выдает 3, а нужно самую длинную последовательность в данном случае 6 .

вот код

procedure TForm1.Button1Click(Sender: TObject);
var

 i,sum,max:integer;
 s:string;
 begin
 s:=(Edit1.text);
 sum:=0;
 max:=0;
 for i:=1 to length(s) do
 begin
 if s[i]='а' then
 sum:=sum+1
 else
 begin
 if sum>max then max:=sum;
 sum:=0;
 end;
 end;
 if s[length(s)]='a'then
 if sum>max then max:=sum;
 Edit2.text:=IntToSTr(max);
end;

end.

в чем ошибся?

[Mad_Cat]

 s:=(Edit1.text)+' ';

[Op1nG.Spark]

:DD
спасибо ))