сколько раз входит в строку группа букв abc

[Женечка92]

дана строка. определить, сколько раз входит в нее группа букв abc. Delphi

[Terran]

Специально для Вас. Если потребуется, то оптимизируйте код.

Procedure TForm1.Button1Click(Sender: TObject);
Var
I,T,R: Integer;
S: String;
Begin
T:=0;
S:=Edit1.Text;
For I:=0 To Length(S) Do
Begin
R:=Pos('abc',S);
If R <> 0 Then
Begin
Delete(S,1,R+2);
T:=T+1;
End;
End;
Edit2.Text:=IntToStr(T);
End;

[Женечка92]

спасибо огромное

[Serge_Bliznykov]

а можно и так:

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