bild speichern unter

[Ratte]

Delphi-Quellcode:

var
  SD: TSaveDialog;
begin
  SD := TSaveDialog.Create(Self);
  with SD do
   begin
    Filename := 'Bild' + inttosr(x);  // <-- eingefügt
    Filter := 'Jpeg Files (*.jpg)|*.jpg';
    Title := 'Save Image to...';
    InitialDir := GetSpecialFolder(Application.Handle, CSIDL_DESKTOPDIRECTORY); // Initalisierungs Verzeichnis ist Desktop
    if Execute then
     begin
      Image1.Picture.SaveToFile(Filename); // <-- geändert
     end;
   end;
  SD.Free;
end;

Müsste das gewünschte sein.
mfg,

Ratte