Jhonas, compilei conforme o indicado deu erro na compilação, ai fiz algumas modificações conforme abaixo, ai compilou no entanto, quando chamo o codigo da a mesma mensagem de erro access violation at address 00612889 in module read of address 00000000C ao debugar, mostra nas linhas
mensagem0.data.AsDate := now(); // data atual e
cobranca0.valor.DecimalString := Format('%.2f', [valor]);
sem compilar
var
service: WSBillingPortType;
mensagem0 : mensagem;
sacador0 : sacador;
sacado0 : sacado;
agendamento0 : agendamento;
cobranca0 : cobranca;
carne0 : carne;
log : WideString;
f2b: F2bCobranca;
valor : Double;
begin
service:= GetWSBillingPortType(false,'',HTTPRIO1);
/// MONTAR O CÓDIGO DOS OBJETOS
valor := 2123.40;
mensagem0.data.AsDate := now(); // data atual
mensagem0.numero := '010203';
mensagem0.tipo_ws := 'webservice';
sacador0.conta := '9023';
sacado0.nome := 'Jose Oliveira';
sacado0.email[0] := 'joseoliveira@f2b.com.br';
//sacado0.numero := 0123456;
cobranca0.valor.DecimalString := Format('%.2f', [valor]);
cobranca0.tipo_cobranca := '';
cobranca0.demonstrativo[0] := 'teste';
cobranca0.num_parcelas := 1;
carne0.url := '';
carne0.numero := 0;
f2b := F2bCobranca.Create;
f2b.mensagem := mensagem0;
f2b.sacador := sacador0;
//f2b.sacado := sacado0.;
f2b.cobranca := cobranca0;
service.RegisterWSBilling(f2b);