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;