WebServices com Erro

Estou tentando usar uma webservice , mas deu erro.
Primeiro eu importei a webservice no delphi : http://www.systeminfo.net.br/wsexpress/CadastrarContribuinte.asmx?WSDL
coloquei um button , um edit e um Httprio.
No Httprio coloquei na propriedade wsdlLocation: http://www.systeminfo.net.br/wsexpress/CadastrarContribuinte.asmx?WSDL
Na propriedade service: CadastrarContribuinte
Na propriedade Port: CadastrarContribuinteSoap

Coloquei tambem:
uses CadastrarContribuinte;

Coloquei no Onclick do botao:

var
R : BOOLEAN;
CGA, NOME, FANTASIA,CNPJ,INSCRICAO,LOGRADOURO,NUMERO,BAIRRO,CIDADE,CEP,UF,FONE : WideString;
begin
CGA := '000';
NOME := 'TESTE';
FANTASIA := 'TESTE';
CNPJ := '000';
INSCRICAO := '000';
LOGRADOURO := 'RUA';
NUMERO := '1';
BAIRRO := 'CENTRO';
CIDADE := 'SAJ';
CEP := '000';
UF := 'BA';
FONE := '000';
R := (HTTPRIO1 As CadastrarContribuinteSoap).Cadastro(1,CGA,NOME,FANTASIA,CNPJ,
INSCRICAO,LOGRADOURO,NUMERO,BAIRRO,CIDADE,CEP,UF,FONE);
EDIT1.TEXT := BoolToStr(R);
end;

Mas retorna um erro.
O que estou fazendo de errado?