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