if SaveDialog1.Execute then
begin
{DefaultExt permet au programme de mettre l'extension par defaut si l'utilisateur ne le met pas}
SaveDialog1.DefaultExt:='*.bmp';
Image1.Picture.SaveToFile(SaveDialog1.Filename);
end;