[v1s2222]

Код:

var
  s: string; // ваша строка
  i: Integer;
  kol: Integer;
  otvet: Integer;
begin
  s:='01 11111 0101 1001...';
  otvet := 0;
  kol := 0;
  for i:=1 to Length(s) do
    if(s[i] = '0') or (s[i] = '1') then begin
      inc(kol);
      if(kol = 5) then
        inc(otvet);
    end
    else
      kol := 0;
//otvet - кол-во груп с 5ю символами

  ShowMessage('Кол-во груп с 5ю символами = ' + IntToStr(otvet));

ЗЫ это не идеальный вариант, написал то что пришло в голову первым..