bild speichern unter

[Ratte]

Delphi-Quellcode:

procedure TPicshowForm.Label7Click(Sender: TObject);
var filename2:string;
begin
   with SaveDialog1 do
   begin
    Filename := 'Bild' + inttostr(pic)+'.jpg';
    Filename2:=''+Filename;
    Filter := 'Jpeg Files (*.jpg)|*.jpg';
    Title := 'Bild speichern unter ';
    if Execute then
     begin
        Image1.Picture.SaveToFile(filename2);
     end;
    end;

end;

probier das mal. Glaube zwar nicht, dass das das Problem ist, aber wer weiß?

mfg,
Ratte