Markierte Checklistbox Einträge kopieren

[sui]

Den Zielpfad suche ich doch hiermit aus:

Code:

begin
    selectdirectory('Ordner wählen', '' ,Pfad);

und setz ihn hier bei dem Pfad wieder rein:

Code:

CopyFile(PChar(CheckListBox1.Items[I]), PChar(Pfad +
                     ExtractFileName(CheckListBox1.Items[I])), false);

Hab die Abfrage jetzt vor die Schleife gesetzt, fragt auch nur noch einmal, aber
kopieren tut er immer noch nix.

Die SHFileOperation ist zu kompliziert für sowas. Soweit bin ich noch lang nicht.