Найти и вывести на экран самую короткую группу символов из строки

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    mmo1: TMemo;
    lbl1: TLabel;
    lbl2: TLabel;
    btn1: TButton;
    btn2: TButton;
    lst1: TListBox;
    procedure btn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btn2Click(Sender: TObject);
begin
Close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  mmo1.Clear;
  mmo1.Lines.Add('Лaбораторная работа №8 Болгара Максима');
end;
 
procedure TForm1.btn1Click(Sender: TObject);
const
  D = ['0', '1'];
var
  S : String;
  i, Len, Cnt, CntMin, IMin : Integer;
begin
  S := lst1.Text;
 
  Len := Length(S);
  IMin := 0;
  CntMin := Len;
  Cnt := 0;
  for i := 1 to Len do begin
    if not (S[i] in D) then Continue;
    Inc(Cnt);
    if (i = Len) or (S[i] <> S[i + 1]) then begin
      if (Cnt < CntMin) then begin
        CntMin := Cnt;
        IMin := i - Cnt + 1;
        if CntMin = 1 then Break;
      end;
      Cnt := 0;
    end;
  end;
 
 
  if IMin > 0 then begin
    mmo1.Lines.Add('Перша найменша група:');
    mmo1.Lines.Add(
      'Кількість елементів: ' + IntToStr(CntMin)
      + ', позиція: ' + IntToStr(IMin)
      + ', группа: "' + Copy(S, IMin, CntMin) + '".'
    );
  end else
    mmo1.Lines.Add('В рядку немає груп.');
end;
 
end.

S := lst1.items[lst1.itemindex];

S := lst1.Text;

if lst1.ItemIndex<0 then
begin
showmessage('Выберите пункт списка!');
exit;
end;
S := lst1.items[lst1.itemindex];