[ArtPortEsp]

Muchas gracias por su ayuda amigos; todas son excelente opciones.

Probé este código que referenció NEFTALI:

function TUtilesArchivos.FechasArchivo(
 archivo: string; tipoFecha: TFechasArchivo): string;
var
  SR: TSearchRec;
  sysTime: SYSTEMTIME;
  fileTime: TFILETIME;
begin
  if (FindFirst(archivo, faAnyFile, SR) = 0) then begin
    case tipoFecha of
      faCreacion: FileTimeToLocalFileTime(SR.FindData.ftCreationTime, fileTime);
      faModificacion: FileTimeToLocalFileTime(SR.FindData.ftLastWriteTime, fileTime);
      faUltimoAcceso: FileTimeToLocalFileTime(SR.FindData.ftLastAccessTime, fileTime);
    else
      FileTimeToLocalFileTime(SR.FindData.ftCreationTime, fileTime);
    end;
    FileTimeToSystemTime(fileTime, sysTime);
    result := DateTimeToStr(SystemTimeToDateTime(sysTime));
    FindClose(SR);
  end
  else
    result := EmptyStr;
end;

y me quede con la segunda opción de escafandra (por alguna razón funciono notablemente mas rápido).

Nuevamente, muchas gracias.