listar contenido de una carpeta

[Investment]

La siguiente funcion te devuelve la fecha de modificacion de un fichero. Con ella y el nombre del fichero ya puedes ordenar como quieres.

   function GetFileDate(TheFileName: string): string;
    var
      FHandle: integer;
    begin
      FHandle := FileOpen(TheFileName, 0);
      try
        Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
      finally
        FileClose(FHandle);
      end;
    end;

[johurgi]

Gracias por tu ayuda,

Al final lo solucione de la siguiente manera.Como tenia que pasar por la base de datos de todas formas lo que hice es insertar en la base de datos con un indice secundario que ordenara por fechas y la fecha es el valor de la fecha de modificado del fichero que acabo de insertar.

Un saludo.