Markierte Checklistbox Einträge kopieren

[sui]

Code:

procedure TForm1.Button3Click(Sender: TObject);
var
  I : Integer;
  Pfad: string;
begin
  for I := 0 to CheckListBox1.Count - 1 do
  begin
    if CheckListBox1.Checked[I] then 
    begin
    selectdirectory('Ordner wählen', '' ,Pfad);
    end;

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

Lässt sich Compilieren, läuft auch, aber im ausgewählten Ordner kommt nix an.
Der bleibt einfach leer...