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.