BLF
for each tObjectsToDelete by tObjectsToDelete.tiInsID:
if valid-handle(tObjectsToDelete.thIns)
then do:
if tObjectsToDelete.thIns:type = "BUFFER"
then tObjectsToDelete.thIns:empty-temp-table().
delete object tObjectsToDelete.thIns no-error.
end.
delete tObjectsToDelete.
end.
viObjectToDelete = 0.