Dateien aus Listbox nach beliebiges Verzeichnis kopieren?

[JWeis]

ich hab da mal geschrieben aber mit nem memo anstatt ne listbox ich suchs und stell es online

so das ist alles

Delphi-Quellcode:

uses StrUtils
//_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_Kopieren:-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-

//Edit1 = der von pfad
//Edit2 = der nach pfad
//label2 = wieviele dateien copiert sind
//in memo setehen die dateien halt drin



//---Button-4----------------------------------------------------------------------------------
procedure TForm1.Button4Click ( Sender: TObject ) ;
var
  Datei: Integer;
begin
  if Edit2.Text <> '' then
  begin
    Progressbar1.Max:= Memo1.Lines.Count;
    for Datei:= 0 to Memo1.Lines.Count -1 do
    begin
      ForceDirectories ( Edit2.Text + '\' + AnsiReplaceStr ( ExtractFileDir ( Memo1.Lines
        [ Datei ] ) , Edit1.Text , '' ) ) ;
      CopyFile ( pchar ( Memo1.Lines [ Datei ] ) , pchar ( Edit2.Text + '\' +
        AnsiReplaceStr ( Memo1.Lines [ Datei ] , Edit1.Text,'' ) ) , true );
      Label2.Caption:= InttoStr ( Datei + 1 );
      Progressbar1.Position:= Datei + 1;
      Application.ProcessMessages;
      if Progressbar1.position = Progressbar1.max then
      begin
        ShowMessage('Alles wurde Kopiert!');
      end;
    end;
  end
  else
  begin
    Exit;
  end;
end;