Mehrere ausgewählte Dateien löschen

[SaFu]

so

Delphi-Quellcode:

procedure TForm4.Button7Click(Sender: TObject);
var  AlterPfad,NeuerPfad :string;
I :Integer;
begin
if OpenPictureDialog1.Execute then
 with Openpicturedialog1.Files do
  for I := 0 to count - 1 do
 begin
  AlterPfad:= OpenPictureDialog1.Files[I];
   NeuerPfad:= Form1.ServerPfad + 'Bilder\'+ ExtractFileName(OpenPictureDialog1.Files[I]);
 if not FileExists(NeuerPfad) then
  begin
   CopyFile(PChar(AlterPfad), PChar(NeuerPfad), true);
   FileListBox1.Items.Add(ExtractFileName(OpenPictureDialog1.Files[I]));
   LabAnzahlBilder.Caption:= 'Bild '+ IntToStr(index)+' von '+ IntToStr(FileListBox1.Items.Count);
  end
 else
  Form1.MessageDlgPos2('Bild ist bereits in der Liste',mtInformation,[mbOk],self);
 end;
end;