Delphi 2007

procedure TFormIntegracao.BuscarRastreador;

var

 buscaRastreador: BuscaRastreadorModeloIntegracao;

 token: Integer;

 retorno: RetornoBuscaRastreador;

 i: Integer;

begin

 token := 936179282;

 buscaRastreador := BuscaRastreadorModeloIntegracao.Create();

 buscaRastreador.Numero := '12345';

 buscaRastreador.IdFabricante := 3;

 retorno := GetIRastreador().BuscaRastreador(token, buscaRastreador);

if retorno.TransacaoOk then

  ShowMessage('Rastreador encontrado')

else

begin

  for i := 0 to Length(retorno.MensagensErro) - 1 do

    ShowMessage('Código: ' + IntToStr(retorno.MensagensErro[i].Codigo) + ' - Mensagem: ' + retorno.MensagensErro[i].Mensagem);

end;

end;