for each tBuffers: if not (valid-handle(tBuffers.thTempBuffer) and tBuffers.tiTempUID = tBuffers.thTempBuffer:unique-id) then do: for each tBufferFields where tBufferFields.thTempBuffer = tBuffers.thTempBuffer: delete tBufferFields. end. delete object tBuffers.thQuery. delete object tBuffers.thBuffer. delete tBuffers. end. end.