procedure deletedrecords(Table: TTable; SioNo: Boolean); 
begin 
  Table.DisableControls; 
  try 
   Check(DbiSetProp(hDBIObj(Table.Handle), curSOFTDELETEON, 
   LongInt(SioNo))); 
  finally 
   Table.EnableControls; 
  end; 
  Table.Refresh; 
end;