procedure TForm1.Button1Click(Sender: TObject);
var
  Stream: TStream;
  s: string;
begin
  Stream := TMemoryStream.Create;
  try
    { получаем текст области редактирования и помещаем его в поток }
    s := Edit1.Text;
    Stream.WriteBuffer(s[1], length(s));
    { сбрасываем стартовую позицию потока и создаем парсер }
    Stream.Position := 0;
    with TParser.Create(Stream) do
    try
      { "добываем" числа и добавляем их в список }
      while Token <> toEOF do
      begin
        CheckToken(toInteger); { возбуждаем исключение, если не toInteger }
        Listbox1.Items.Add(IntToStr(TokenInt));
        NextToken;
      end;
    finally
      Free;
    end;
  finally
    Stream.Free;
  end;
end;