[Uniq!]

http://delphibasics.ru/AnsiPos.php
Вот эта ссылка + алгоритмика:

пройтись циклом по строке

Код:

var 
 str:string;
begin
str:='01001 0101 10101 01 ';

For i:=1 to length(str) do
 begin
  if str[i]<>' 'then k:=k+1
   else if k=5 then 
   begin
    count:=count+1;
    k:=0;
 end;

к - переменная подсчёт символов от пробела до пробела
count - кол-во подстрок длинной в 5ть символов

В цикле организовать поиск "пробелов" и подсчёт знаков до ближайшего найденного.

Писал на коленке. 100пудова надо доводить до ума