Integre o EFD-Reinf ao seu software sem carregar a complexidade da Receita Federal.

uses
  ReinfClientX_TLB;

var
  Reinf: TspdReinfClientX;
  IdLote: string;
begin
  Reinf := TspdReinfClientX.Create(nil);
  try
    Reinf.ConfigurarSoftwareHouse('29062609000177', '{seu-token}');
    Reinf.Ambiente          := 2;            // 1=Produção, 2=Homologação
    Reinf.CpfCnpjEmpregador := '08187168';
    Reinf.NomeCertificado   := 'CN=EMPRESA TESTE';
    Reinf.VersaoManual      := '2.1.02';

    Reinf.GerarXMLporTx2('R-2010.tx2');   // TX2 -> XML
    Reinf.AssinarEvento(Reinf.XmlEvento); // assina com certificado
    IdLote := Reinf.EnviaLoteEventos;     // -> Receita Federal

    Reinf.ConsultarLote(IdLote);          // recibo / ocorrências
  finally
    Reinf.Free;
  end;
end;