Page Comparison

uses
  uCarregaRelatorio;
  
var
  cNomeParams, cValorParams: String;
begin
  cNomeParams := '';
  cValorParams := '';
  
  //adicionando o parametro ESTAB com o valor do oDadosSis.EstabSelecionado
  TFCarregaRelatorio.ParamsAddParamAdd(cNomeParams, cValorParams, 'ESTAB', 
                               IntToStr(oDadosSis.EstabSelecionado));

  //chamada ao relatatório 'Meu rel exemplo' com os parâmetros definidos acima 
  //e apresentando inicialmente o resultado em tela
  TFCarregaRelatorio.RelatorioByNome('Meu rel exemplo', cNomeParams, cValorParams, false);
end;