elementos visuales en principio ninguno, de variables (importantes aparte del contador) dos stringlist, el nombre del archivo a cargar, el numero de archivo a grabar y un string temporal. Mira, te lo pongo en pseudocodigo
Código Delphi
[-]
funcion Grabar
ls_g.SaveToFile(nombre_archivo + inttostr(num_archivo) + '.ext');
}
si no i = i + 1
ls_g.Libera ls.free }