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

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm4 = class(TForm)
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Memo1: TMemo;
    procedure BitBtn1Click(Sender: TObject);
     procedure ComboBox1Click(Sender: TObject);
     procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
 
  ComboBox1.Items.Add(ComboBox1.Text);
  ComboBox1.Text:='';
 
end;
 
procedure TForm4.ComboBox1Click(Sender: TObject);
 
var st : string;
    i,nst,pos,temp: integer;
    col: integer;
begin
  nst:=ComboBox1.ItemIndex;
  st:=ComboBox1.Items[nst];
   pos:=0;
   col:=0;
    for i:=1 to Length(st) do begin
      if not (st=#32) then begin
        pos:=pos+1;
        if (st[i]='1') then
           col:=col+1;
      end
      else begin
       temp:=pos mod 2;
      if temp<>0 then
        Memo1.Lines.Add(InttoStr(col));
       pos:=0;
        col:=0;
      end;
    end;
 
end;
 
procedure TForm4.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
    if (key in ['а'..'я','А'..'Я']) then
        key:=#0;
end;
 
 
end.

procedure TForm1.Button1Click(Sender: TObject);
const
  D = ['0', '1'];
var
  S : String;
  i, Len, Cnt, Cnt1, CntRes : Integer;
begin
  S := Edit1.Text;
  Len := Length(S);
  Cnt := 0;
  Cnt1 := 0;
  CntRes := 0;
  for i := 1 to Len do begin
    //Пропускаем символы, не принадлежащие множеству D.
    if not (S[i] in D) then Continue;
    //Подсчёт элементов в группе.
    Inc(Cnt);
    //Подсчёт единиц в группе.
    if S[i] = '1' then Inc(Cnt1);
    //Конец очередной группы.
    if (i = Len) or (not (S[i + 1] in D)) then begin
      if Cnt mod 2 <> 0 then CntRes := CntRes + Cnt1;
      Cnt := 0;
      Cnt1 := 0;
    end;
  end;
 
  ShowMessage(
    'Общее количество единиц, подсчитанное в группах'
    + #10 + 'с нечётной длиной, равно: ' + IntToStr(CntRes)
  );
end;