Speichern einer Serie von Dateien

[cltom]

Hallo!

folgender Wunsch: es soll eine Serie von Bildern gespeichert werden nach dem Schema
Dateiname1.bmp
Dateiname2.bmp
Dateiname3.bmp

Der User soll via herkömmlichen TSaveDialog Ort und Name ein mal aussuchen, 1, 2, 3, ... wird automatisch ergänzt und eben nacheinander abgespeichert.

Nun habe ich mal folgendes probiert:

Delphi-Quellcode:

With SaveDialog1 do
  begin
    if execute then
      begin
        for i:=1 to 10 do
          begin
             //sinngemäß hier:
             saveimage(filename+inttostr(i));
          end;
      end;
  end;

das geht aber so einmal nicht, da nur die erste Datei abgespeichert wird.

Tipps und Rat? Danke!

cltom