Подсчитать количество символов в самой длинной группе нулей и единиц

var
  st, stt, stgr: string;
  i, k, max, gr : byte;
begin
  st := '11010100 010101010 01001100100 01001 0 01010101 010100';
  stt := st;
  max := 1;
  i := 1;
  while Length(stt) > 0 do
  begin
    if pos(' ', stt) > 0 then
      k := pos(' ', stt) - 1;
    if k > max then
    begin
      max := k;
      gr := i;
      stgr := copy(stt, 1, k);
    end;
    delete(stt, 1, k + 1);
    inc(i);
  end;
  Memo1.Lines.Add('Строка: ' + st);
  Memo1.Lines.Add('Группа: ' + IntToStr(gr));
  Memo1.Lines.Add('В ней ' + IntToStr(max) + ' символов');
  Memo1.Lines.Add('И она: ' + stgr);
end;

// здесь (перед бегин) надо добавить
var
  st, stt, stgr: string;
  i, k, max, gr : byte;
 
// потом
begin
st := Edit1.Text; // здесь не было знака ";"
  stt := st;
  max := 1;
  i := 1;
  while Length(stt) > 0 do
  begin
    if pos(' ', stt) > 0 then
      k := pos(' ', stt) - 1;
    if k > max then
    begin
      max := k;
      gr := i;
      stgr := copy(stt, 1, k);
    end;
    delete(stt, 1, k + 1);
    inc(i);
  end;
  Memo1.Lines.Add('Строка: ' + st);
  Memo1.Lines.Add('Группа: ' + IntToStr(gr));
  Memo1.Lines.Add('В ней ' + IntToStr(max) + ' символов');
  Memo1.Lines.Add('И она: ' + stgr);