System Delphi

Title: How to prevent Data Corruption
uses
BDE;
procedure TForm1.Table1AfterPost(DataSet: TDataSet);
begin
DbiSaveChanges(Table1.Handle);
end;