cambiar extension

[paulodb]

Luego de programar horas y horas y buscar informacion me di cuenta que si reseteo el byte 28 del archivo dbf evitare que salga el error "index not found" (que me indica que los indices del archivo estan estropeados)
Para ello cree una funcion a la cual se le pasa el path o direccion de donde se encuentra la tabla DBF y luego resetea el byte 28.
Buenisismo!

Código Delphi [-]
procedure PasarDBF3(DireccionTabla : string);
var sArchivo: String ;
    F: File of byte;
const Value: Byte = 0;
begin
sArchivo := DireccionTabla;
AssignFile(F, sArchivo);
Reset( F ) ;
Seek(F, 28);
Write(F, Value);
CloseFile( F );
end;