[jachguate]

si la imagen que grabas es un jpeg, por que queres recuperarlo como bmp??

Lo normal sería recuperarlo como jpeg, no te parece?

Código Delphi [-]
var
  bimp : TjpegImage;
  ms : TMemoryStream;
Begin
  Image1.Visible := True;
  bimp := TjpegImage.Create;
  ms := TMemoryStream.Create;
  try
    EmployFOTOGRAFIA.SaveToStream(ms);
    bimp.LoadFromStream(ms);
    Image1.Picture.Assign(bimp);
  finally
    ms.Free;
    bimp.Free;
  end;
end;

A tu código le he añadido una clausula try/except para garantizar que se libere siempre la memoria, y además lo he publicado con la etiqueta delphi que debieras usar para publicar trozos de código... ¿notas la diferencia?.

Saludos.