Solo comentar que si pulsas el boton guardaImagen y despues le das a cancelar, tambien va a guardar la imagen, y con el nombre que tuviese anteriormente o bien sin nombre.
Código Delphi
[-]
SavePictureDialog1.DefaultExt := GraphicExtension(TBitmap);
if SavePictureDialog1.Execute then
Dbimage1.Picture.Bitmap.SaveToFile(SavePictureDialog1.FileName);
Offtopic: Nunca habia imaginado que se pudiese complicar tanto para poner la extensión bmp a un archivo
. Sé que es lo correcto, pero no lo conocía y me ha sorprendido. Gracias Marcos
Saludos.