Delphi - PARA BIGLUIS

los archivos que me mandaste eran para copiar de un listbox a un directorio que yo elija.eso ya me funciona y te doy las gracias pero lo que yo kiero hacer ahora es con un filelistbox seleccionar todos los archivos que yo kiera y de una vez copiarlos al listbox siempre me copia el ultimo tantas veces como archivos halla seleccionado
un saludo

Persona Raul, pero TE MANDE DOS EJEMPLOS PARA QUE VIESES DISTINTAS RUTINAS DE MANEJO DE FICHEROS y uno de los ficheros que te mande llamado ToDo es una aplicacion de prueba en la que muestro como hacerlo.De todas formas ahi va la rutina simple:
El fileListBox tiene que tener la pripiedad MultiSelect a True y en un boton escribes
procedure TMainForm.SpeedButton2Click(Sender: TObject);
var
I:Integer;
begin
ListBox1.Clear;
for I:=0 to FLB1.Items.Count-1 do
if FLB1.Selected[I] then
ListBox1.Items.Add(FLB1.Items[I]);

end;
Y TE ASUGURO QUE FUNCIONA.