DBimage, Salvar imagen en Archivo Externo

[mtpedro]

Tengo un Dbimage, con un popupmenu hay una opcion para grabar la imagen
a un archivo externo, la idea es que al dar click derecho y seleccionando
la opcion grabar fotografia, se Active un Dialogo para grabar
Solo que Me marca error el siguiente codigo, como puedo hacer esta tarea
mi procedimiento es el siguiente:


Tprocedure TFCONSULTAR.GrabarFotografiaExternamen1Click(Sender: TObject);
VAR
NARCHIVO:STRING;
begin
SAVEpicture1.Execute;
image1.Picture.Bitmap.SaveToFile(SAVEpicture1.FileName);
end;

--------------------------------
Te agradecere tu ayuda Pequeño Saltamontes.
SAludos desde TIJUANA, MEXICO.