setlength(ficheros, numeroelementos) for i:=low(ficheros) to hight(ficheros) do begin ... Ficheros[i].Nombre:=var_nombre; Ficheros[i].Ruta:=var_ruta; Ficheros[i].Fecha:=var_fecha; Ficheros[i].Tamanyo:=vartamanyo; ... end