1:

ExtractFilePath(ListBox1.Items.Strings[i]) + ExtractFileName(ChangeFileExt(ListBox1.Items.Strings[i],'') + '_Kopie_' + IntToStr(i) + '.rar');					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

 Form1.ListBox.SelectAll;
 i:=Form1.ListBox.ItemIndex;
 if i > -1 then //Ist etwas markiert
 for i:=0 to Form1.ListBox.Count-1 do
 begin

  Form1.ListBox2.Items.Add(ExtractFileName(Form1.ListBox.Items.Strings[i]));
  Form1.ListBox2.SelectAll;
  a:=Form1.ListBox2.ItemIndex;
     if a > -1 then //Ist etwas markiert
     for a:=0 to Form1.ListBox2.Count-1 do
     begin

Form1.syntax.Text := '-RAR a -ep1 -r -s -md64 ';
Form1.all.Text := Form1.syntax.Text +
                  '-m' + Form1.cm.Text + ' ' +
                  Form1.Edit11.Text +
                  Form1.Edit22.Text +
                  Form1.output.Text +
                  Form1.ListBox2.Items.Strings[a] + ' ' +
                  Form1.ListBox.Items.Strings[i];
                //  Showmessage(Form1.all.Text);
ShellExecute(Handle, nil, PChar(Form1.Edit3.Text), PChar(Form1.all.Text), nil, SW_SHOW);
Form1.ListBox2.Items.Delete(0);
end;
end;