Das geht mit einer Schleife und
CopyFile:
Delphi-Quellcode:
for i := 0 to Listbox1.Items.Count - 1 do
CopyFile(IncludeTrailingPathDelimiter(ListBox1.Items[i]) + ListBox2.Items[i]);
Schöner wäre es jedoch, wenn du die Pfade intern speicherst und damit arbeitest (Bsp: TStringList).
Aber bitte erstelle zukünftig pro Frage einen neuen Thread.
Schön wäre es auch, wenn du die Lösung zum ersten Problem noch posten würdest, damit andere, die ähnliche Probleme haben, einen Lösungsansatz finden.