Delphi - QUIERO USAR EL COPYFILE CON UN LISTBOX

quiero saber que poner para copiar archivos que la ruta esta en un listbox y el destino un directorylistbox yo he puesto lo siguiente:

copyfile(pchar(listbox1.items.text),pchar(directorylistbox1.directory),false)

Aunque no me da fallo no funciona puesto que no copia haer si me podeis hechar una mano

Gracias

Piensa que el ListBox es un componente que almacena cadenas de texto en forma TString y la propiedad Text se refiere a String, por lo que estas manipulando todo el contenido del ListBox. Para copiar todas las entradas declara una variable en el procedimiento de tipo por ejemplo Integer y haz lo siguiente
procedure.......
var I:Integer;
begin
for I:=0 to ListBox1.Items.Count-1 do
copyfile(pchar(ListBox1.Items[I]),pchar(DirectoryListBox1.directory+
extractfilename(ListBox1.Items[I]),false);
end;
Puedes emplear una ProgressBar para ver el progreso de la copia simplemente antualizandlo a I que va aumentando de unu en uno a medida que copia un Item.
Si no entiendes algo dilo
Suerte.