Problemas al eliminar un archivo

[CFPA86]

Hola amigos foristas, sobre este tema le he encontrado ya mi error (me demore en hacerlo pero loencontre), el codigo queda asi

Código Delphi [-]
procedure TFmttodatos.BBaceptarClick(Sender: TObject);
 var
  LArchBor : File;
 begin
//   Hago proceso que debo de realizar con HDA lo realiza bien
  AssignFile(LArchBor, 'Animales.db');
  Reset(LArchBor);
  CloseFile(LArchBor);
  Tanimales.Active       := False;                    // Name de animales
// DSanimales.Enabled   := False;    // DataSet de Tanimales linea que sobra//
// Tanimales.DatabaseName   := ''; // Lineaque sobra //
  Erase(LArchBor);                                      // Borrar Animales.db //
 end;

La idea o la conclusion a la que llegue es que PRIMERO debo de cerrar el archivo y de SEGUNDO la propiedad active la hago igual a false. Esto funciona tanto con Erase y DeleteFile.
De todas formas quiero darle gracias a todos por prestarle atencion a mi pregunta