Как достать параметр блока при подсчете блоков?

function EnumBlockNames(Items: TStrings; IncludeSpecial: Boolean = False): Integer;
var
  i, BlocksCount: Integer;
  BlkName: string;
  BlkCount,RowNum: integer;
  Row: Boolean;
begin
  Result:= -1;
  if not VarIsClear(Acad) then
  begin
    with Items do
    begin
      BeginUpdate;
      try
        Clear;
        BlocksCount:= Acad.ActiveDocument.ModelSpace.Count;
        for i:= 0 to BlocksCount — 1 do
        begin
         if Acad.ActiveDocument.ModelSpace.Item(i).ObjectName = 'AcDbBlockReference' then
         begin
          BlkName:= Acad.ActiveDocument.ModelSpace.Item(i).Name;
          BlkCount:=0;
          if (not IncludeSpecial) and (BlkName[1] <> '*') or IncludeSpecial then
            if BlkName[1]<>'_' then
            begin
            Add(BlkName);
            Row:=  Form1.BlkTab.FindRow(BlkName,RowNum);
            if Row=False then
            Form1.BlkTab.InsertRow(BlkName,'1',True) //Добавляем в ValueList если такого блока еще там нет
            else
            Form1.BlkTab.Values[BlkName]:=IntToStr(StrToInt(Form1.BlkTab.Values[BlkName])+1);
//Прибавляем количество в ValueList если такой блок уже добавлен
            end;
        end;
        end;//end i:=0
      finally
        EndUpdate;
      end;
      Result:= Count;
    end;
  end;
end;