Dateien aus Listbox nach beliebiges Verzeichnis kopieren?

[mlspider]

In deer ListBox1 stehen die zu kopierenden Dateien samt Pfad drin. In ListBox2 lediglich der Zielpfad (C:\Blablabla\).

Ich habe den Aufruf insoweit abgeändert:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var sl, dl: TStringList;
begin
 sl := TStringList.Create;
 dl := TStringList.Create;
 sl.AddStrings(ListBox2.Items);
 dl.AddStrings(ListBox3.Items);
 DoFileWork(Self.Handle, FO_COPY, sl, dl, FOF_ALLOWUNDO);
 sl.Free;
 dl.Free;
end;

Leider bisher ohne Erfolg.