DBimage, Salvar imagen en Archivo Externo

[mtpedro]

Ninguna de lo anterior me funciono, aunque en teoria deberia funcionar,
pero en fin, Estuve buscando informacion sobre manejo de graficos en
manuales Delphi y solucione esto con el siguiente codigo, espero
sea de utilidad quien en el futuro necesite algo parecido.

Gracias pequeños saltamontes !!!!!!!!

Código Delphi [-]
 procedure TFCONSULTAR.GrabarFotografiaExternamen1Click(Sender: TObject);
 VAR
   Marchivo: tbitmap;
   jpg:tjpegimage;
   stream:tmemorystream;
 begin
   jpg:=nil;
   stream:=nil;
   JPG:=tjpegimage.create;
   STREAM:=TMEMORYSTREAM.Create;
   image1.Picture.Graphic.SaveToStream(stream);
   STREAM.Position:=0;
   jpg.LoadFromStream(stream);
 
   SAVEPICTUREDIALOG1.Execute;
   JPG.SaveToFile(SAVEPICTUREDIALOG1.FileName+'.JPG');
 
 end;

ATT. PEDRO MORENO T.
Saludos desde TIJUANA, MEXICO.