Задача на строку и заполнение таблички

[koysara]

Дана строка, состоящая из последовательностей нулей и единиц.
Требуется на Дельфи 7 сделать следующее:
Внести в таблицу позиции начала-конца последовательностей нулей.
Помогите пожалуйста, буду очень благодарен!

[Скандербег]

Таблица TStringGrid. Строка из последовательности нулей и единиц вводится в TEdit. Начальная позиция в первой колонке таблицы, конечная во второй.

procedure TForm1.Button1Click(Sender: TObject);
var
  I, Start, Finish, R : Integer;
begin
  Start := 0;
  R := StringGrid1.RowCount;
  for I := 1 to Length(Edit1.Text) do begin
    if (Edit1.Text[I] = '0') and (Start = 0) then
      Start := I;

    if Start > 0 then begin
      if Edit1.Text[I] = '1' then
        Finish := I - 1;
      if I = Length(Edit1.Text) then
        Finish := I;
      if Finish > 0 then begin
        StringGrid1.Cells[0, R-1] := IntToStr(Start);
        StringGrid1.Cells[1, R-1] := IntToStr(Finish);
        Start := 0;
        Inc(R);
        if R > StringGrid1.RowCount then
          StringGrid1.RowCount := StringGrid1.RowCount + 1;
        Finish := 0;
      end;
    end;
  end;
end;

[koysara]

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