Un problema con las fechas de los archivos

[Javier_A]

Hola a tod@s,
He implementado una aplicación donde guardo una serie de documentos con las fechas de creación, modificación y ultimo acceso, utilizando para ello este código ( sacado de la web de Neftali ).

He aquí una parte de él.

r := FindFirst(nombre + '\*.*', FaAnyfile, DirInfo);
while r = 0 do begin
if ((DirInfo.Attr and FaDirectory <> FaDirectory) and (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
begin
maxi:=length(DirInfo.Name);
fpos:=copy(DirInfo.Name,maxi-3,maxi);
if fpos='.doc' then
begin
if GetFileTimes(DirInfo.Name, CDate, MDate, ADate) then
begin
FechaCreacion := FormatDateTime('dd/mm/yyyy hh:nn',CDate);
Fechamodificacion := FormatDateTime('dd/mm/yyyy hh:nn',MDate);
FechaUltAcceso := FormatDateTime('dd/mm/yyyy hh:nn',ADate);
end
else
begin
FechaCreacion:='';
Fechamodificacion:='';
FechaUltAcceso:='';
end;

El funcionamiento de la aplicación es el siguiente:

* En una tabla cada usuario guarda los directorios donde guardan los documentos
* Con un clic a un boton la aplicación va al interior de los directorios y selecciona los documentos que se guardan en otra tabla ( nombre, fecha creacion, etc..)
Hasta aqui todo correcto, pero si uno de los usuarios vuelve a pulsar el boton, la aplicación borra los documentos anteriormente guardados por él, y graba los nuevos pero la fecha de creación la graba con una fecha del siglo pasado, ¿ por que pierde este dato ?

Lo curioso es que si borra los directorios, los vuelve a grabar y pulsa el boton para actualizar los documentos, vuelve a aparecer la fecha correcta.
¿ Me podeis decir como puedo solucionar esto ?

Os espero....
Un saludo