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.