Markierte Checklistbox Einträge kopieren

[Die Muhkuh]

Hier nochmal gekürzt:

Delphi-Quellcode:

var
  I : Integer;
begin
  for I := 0 to CheckListBox1.Count - 1 do
  begin
    if CheckListBox1.Checked[I] then
    begin
      CopyFile(PChar(CheckListBox1.Items[I]), PChar('C:\Test\' +
                     ExtractFileName(CheckListBox1.Items[I])), false);
    end;
  end;

Auch hier wieder das 'C:\' entfernen