Someone

  ablob.nblob := 0;
  SetLength(ablob.blob, realblobindex);
  for i:=0 to realblobindex-1 do
    begin
      ablob.blob[ablob.nblob].labelid := ablob.nblob;
      bmpblob_blobcounter_collectspans(ablob, i, @ablob.blob[ablob.nblob]);
      if ablob.blob[ablob.nblob].nspan > 0 then
        inc(ablob.nblob);
    end;
  setlength(ablob.blob, ablob.nblob);