Que pasa con mi base de datos!???

[gamez2809]

Que tal amigos!? Soy nuevo en este foro, quisiera que alguien me ayudara con este problema que tengo, no se por donde atacarlo..

La situacion es esta, estoy haciendo un proyecto de punto de venta en delphi 6, y estoy utilizando Paradox, normalmente no tengo este problema.

Tengo una tabla con varios campos, y ya tiene muchos registros, pero le acabo de agregar el campo Year, y mediante un procedimiento lo llené para todos los registros que ya tenia ,checo la tabla con Database Desktop y efectivamente el campo Year esta lleno, pero al seguir programando un rato despues me encuentro con que la tabla esta como antes, con el campo Year vacio para todos los registros. Ejecuto varias veces el programa y ahi estan los datos que escribi.. pero a las tantas de repente los datos ya no estan...

Esto no es todo... copio todos los archivos que se generan de la tabla, incluyendo los indices y todo, a otra carpeta, cuando el campo Year de la tabla esta lleno, y al abrir la tabla con Database Desktop, desde la nueva ubicacion de la tabla, dicho campo esta vacio otra vez!!! como si un documento de excel no guardara los ultimos cambios.

Esto tambien me paso al agregar automaticamente muchos registros a otra tabla.. la abri de nuevo, y los registros ya no estaban... no se que sucede... quizá es mi metodo para escribir los datos a la tabla.. les dejo el codigo, y espero que alguien me eche una mano...

Código Delphi [-]
{ Este es el codigo que me dio el problema del campo Year}
ventas.Filtered:=false;
        ventas.First;
        for i:=1 to ventas.RecordCount do
                begin
                        ventas.Edit;
                        ventas['year']:=strtoint(copy(ventas['fecha'],7,4));
                        ventas.Post;
                        if ventas.Eof=false then ventas.Next;
                end;

{ Este es el que me preocupa mas, porque los datos no se guardan por mucho tiempo... desaparecen }

        ventas.First;
        for i:=1 to ventas.RecordCount do
                begin
                        if clientes.Locate('nombre',ventas['nombre'],[])=false then
                                begin
                                        clientes.Append;
                                        clientes['nombre']:=ventas['nombre'];
                                        clientes['domicilio']:=ventas['domicilio'];
                                        clientes['ciudad']:=ventas['ciudad'];
                                        clientes['rfc']:=ventas['rfc'];
                                        clientes['vendedor']:=ventas['vendedor'];
                                        clientes.Post;
                                end;
                        if ventas.Eof=false then ventas.Next;
                end;

Muchas Gracias!!!