{
GraphicExtension, GraphicFilter, DefaultExt, Filter example
This code displays a Save Picture dialog box with the TBitmap default extension that is added automatically to files that are given no extension:
}
SavePictureDialog1.DefaultExt := GraphicExtension(TBitmap);
SavePictureDialog1.Filter := GraphicFilter(TBitmap);
if SavePictureDialog1.Execute then
  {save the graphic } 
