ccApplication.DeleteBlob

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;