Alguien ha usado directamente el webservice de consulta al padron de AFIP

[giulichajari]

Hola amigos...estoy tratando de programar usando directamente los webservices de AFIP, es decir sin librerias externas..
ya tengo mi crt y mi key para homologacion...

el caso es que importe el webservice de padron de nivel 3:
https://awshomo.afip.gov.ar/padron-p...rviceImpl?WSDL

y usando el componente HTTPRio de esta manera

Código Delphi [-]
begin
admin:=TIniFile.Create(ExtractFilePath(Application.ExeName )+ 'caja.ini');
  ECUIT:=Copy(MaskEdit1.Text,0,2) + Copy(MaskEdit1.Text,4,8) + Copy(MaskEdit1.Text,13,1);
 //   Fsign:=obtenersign(respuestaXML));
  TLogin.unicoLogin;


   xml2:=NewXMLDocument;
   xml1:=NewXMLDocument;

   xml1.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'cuit.xml');

   content:=(RIOCuit as padronAFIP.ContribuyenteNivel3SelectServiceImpl).get(xml1.XML.Text,login.armarToken,login.armarSign)  ;
   xml2.XML.Text:=content;
   xml2.Active:=True;
   xml2.SaveToFile(ExtractFilePath(Application.ExeName) + 'archivocliente.xml');

end;

obtengo un error Exception class $C0000005 with message 'access violation at 0x00923065: read of address 0x00000000'. Process TPV.exe (3216)

segun vi en internet los ceros significan que hago referencia a un puntero inexistente..hice un showmessage de login.sign y login.token y todo va bien...
el error es en la linea

Código Delphi [-]
content:=(RIOCuit as padronAFIP.ContribuyenteNivel3SelectServiceImpl).get(xml1.XML.Text,login.armarToken,login.armarSign)  ;

muchas gracias desde ya