[yusnerqui]

Creo que se te escapó un detalle, las imágenes que estás cargando son JPG y no las puedes asignar así directamente, tienes que primero hacer la conversión.

lo primero es agregar en el Uses la unidad "jpeg".

Después algo como esto:

Código Delphi [-]
  Var
    bimp : TJpegImage;
    ms : TMemoryStream;
   begin
     Image1.Visible := True;
     bimp := TJpegImage.create;
     ms := TMemoryStream.Create;
     EmployFOTOGRAFIA.SaveToStream(ms);
     bimp.LoadFromStream(ms);
     Image1.Picture.Assign(bimp);   
     ms.Free;
     bimp.Free;
   end

Bueno esto lo he hecho de memoria y mirando tu código, pero de seguro te ayudará a terminar de solucionar el problema.

Saludos