Relatório com Imagem (Client-Side)

//Impressão do relatório com imagem
procedure btnPrintClick(Sender: TObject);
var
  rvImgRave: TRaveBitmap;
  pgRelatorio: TRavePage;
  Stream: TStringStream;
  strAux: string;
  srv: TServer;
begin
  rvCarteirinha.Open;
  try
    rvImgRave := rvCarteirinha.ProjMan.FindRaveComponent('FrenteFunc',pgRelatorio) as TRaveBitmap;
    if rvImgRave <> nil then
    begin
      srv := TServerClient.Create(Sessao.Conn);
      try
        strAux := srv.ConsultaImagens('CSI_FRENTE_CAR_FUNC', 'TSI_CADESC', 'WHERE CSI_CODESC = ' +
      Sessao.CodigoEscola);

        if strAux <> '' then
        begin
          Stream := TStringStream.Create(strAux);
          try
            strAux := TUteis.CaminhoTempDir + 'frente.bmp';

            Stream.SaveToFile(strAux);

            if FileExists(strAux) then
              rvImgRave.FileLink := strAux;
          finally
            Stream.Free;
          end;
        end;
      finally
        srv.Free;
      end;

    rvCarteirinha.ExecuteReport('Funcionario');
  finally
    rvCarteirinha.Close;
  end;
end;