procedure ShowDeleted(Dbf :TTable; ShowDeleted :boolean); begin Check(DbiSetProp(hDBIObj(Dbf.Handle),curSOFTDELETEON,Longint(ShowDeleted))) end;