Carregar Imagem PNG

procedure carregaPNG(field: TField; img: TPNGImage)
var
  BlobStream: TStream;
begin
  if field.IsNull then
  begin
    FreeAndNil(img);
    img := TPNGImage.Create;
  end
  else
  begin
    BlobStream := field.DataSet.CreateBlobStream(field, bmRead);
    try
      if BlobStream.Size <> 0 then
        img.LoadFromStream(BlobStream)
      else
      begin
        FreeAndNil(img);
        img := TPNGImage.Create;
      end;
    finally
      FreeAndNil(BlobStream);
    end;
  end;
end;

procedure Tform1.btn1Click(Sender: TObject);
var
   foto: TPNGImage;
begin
   foto := TPNGImage.Create;

   // Onde cdsConsulta é um TClientDataSet no qual esta a consulta, podendo usar outro componente
   // contanto que retorne um objeto do tipo TField
   carregaPNG(cdsConsultaFoto, foto);

   //Atribui a imagem a um TImage
   Image1.Picture.Assign(foto);
end;