....
 With Table1 Do
 Begin
   Open;
   dbiSetProp(hDBIObj(Handle), curSOFTDELETEON, LongInt(True));
   OnFilterRecord := Table1FilterRecord;
   Filtered := True;
 End;
....
const
 flag : Boolean = False;

procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
 var Accept: Boolean);
var
 Pr : RECProps;
begin
 if Flag then Exit;
 flag := True;
 Check(DbiGetRecord(Table1.Handle, dbiNoLock, Nil, @Pr));
 if Pr.bDeleteFlag then Accept := True
 Else Accept := False;
 flag := False;
end;