bilder einlesen und unter neuem namen speichern

[Noobinator]

ich weiß nicht ob ich dich richtig verstehe, aber:

Delphi-Quellcode:

var i:integer;// Zählvariable
begin
if opendialog1.Execute then
  begin
    for i := 0 to opendialog1.Files.Count - 1 do// alle Dateien durchgehen
     begin
       renamefile(opendialog1.Files[i],{neuer Name});
     end;
  end;