function isDeleted(dbf :TTable) :boolean; var aRecProbs :RECProps; begin if (dbf.State = dsBrowse) and not dbf.Eof and not dbf.Bof then begin Dbf.UpdateCursorPos; check(DbiGetRecord(dbf.Handle,dbiNOLOCK,nil,@aRecProbs)); Result:=aRecProbs.bDeleteFlag; end else Result:=false; end;