Delphi - Eliminar archivos

Hola a todos,

estoy haciendo un programilla para eliminar archivos que lleven mas de 60 dias en un directorio pero no acabo de sacarlo. El código que tengo es el siguiente:

-------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
Archivo: TSearchRec;
i : integer;
fechaSistema,fechaArchivo,diasTranscurridos : TDateTime;
begin
i := FindFirst(\'C:\\Documents and Settings\\davidVM\\configuración local\\temp\\*.*\', FaArchive, Archivo);
fechasistema := (date);
fechaArchivo := (FileDateToDateTime(Archivo.Time));
diasTranscurridos:= ((fechaSistema)-(fechaArchivo));
while i = 0 do begin
if diasTranscurridos > 60 then
if DeleteFile(pChar(\'C:\\Documents and Settings\\davidVM\\configuración local\\cookies\\\'+ Archivo.Name)) = false then
i := FindNext(Archivo);
end;
SysUtils.FindClose(Archivo);
end;
---------------------------------------------------------------------

A ver si me pueden ayudar...

Gracias.

En vez de hacer:
....
diasTranscurridos:= ((fechaSistema)-(fechaArchivo));
....

deberías hacer lo sig:

DaysBetween (fechaSistema, fechaArchivo);

Con eso debería funcionar. No te olvides de agregar la unidad DateUtils (Delphi 6 o superior).

Saludos...