ЧТо то помоему вы тут намудрили господа, мой вариант без StringList
Код:
procedure TForm1.Button1Click(Sender: TObject);
var st,st1:string;
fl:boolean;
i,countG:integer;
begin
CountG:=0; // Кол-во групп
st:='00000 11111 11111 1 00000'; // Строка в которой ищем группы
i:=1; //Позиция разделителя 1 чтоб вошли в цикл
st:=st+' '; // Добавляем в конец разделитель для определения последней группы
while i>0 do //Сообственно сам цикл
begin
i:=pos(' ',st);//Ищем ближ. разделитель
st1:=copy(st,1,i-1); //Записываем то что лежит в строке с 1-го символа до разделителя
if length(st1)=5 then CountG:=CountG+1; //Проверяем кол-во Вгруппе если 5 то групп +1
Delete(st,1,i); //Удаляем то что уже посчитали
end;
label1.Caption:=inttostr(CountG); //Выводим
end;