// Wenn man bei dBASE-Datenbanken Sätze mittels DBNavigator löscht, werden
// die Sätze nur als gelöscht markiert, bleiben aber physisch erhalten. Deshalb
// sollte man bei Programmende die Datenbank packen.

// Getestet mit D4 unter WinME

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  table1.active := false; 
  table1.exclusive := true; 
  table1.active := true; 
  check(dbipacktable(table1.dbhandle, table1.handle, nil, szdbase, True)); 
  table1.active := false; 
end;