Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

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;