BlobList := ccApplication.GetBlobList(ccWS_Stack,false,'');
ListSize := VarArrayHighBound(BlobList,1);
if ListSize >= 0 then
begin
for i:=0 to ListSize do
begin
p := ((i+1)/(ListSize+1))*100;
ccApplication.ShowStatus('Deleting blobs','Blob '+inttostr(i+1),p);
ccApplication.DeleteBlob(BlobList[i]);
end;
end;