Realizando a Recarga

using System;
using Cappta.Gp.Api.Com;

namespace CappAPIIntegration
{
    class Program
    {
        static void Main(string[] args)
        {
            //Obtenha e escolha sua operadora, produto, número de celular e valor aqui.

            var recarga = new DetalhesRecarga();
            recarga.Celular = celular; // inteiro.
            recarga.Ddd = ddd; // inteiro.
            recarga.Produto = produto; //IProdutoRecarga
            recarga.ValorRecarga = valor; // double

            var resultado = cappta.RecargaCelular(recarga);
            if (!resultado is IRespostaRecarga)
            {
                Console.WriteLine("Não foi possível realizar a recarga.");
                return;
            }

            //Agora basta imprimir o cupom.
        }
    }
}

program cappapiintegration;

uses Cappta_Gp_Api_Com_1_0_TLB;

var
  cappta : IClienteCappta;
  detalhesRecarga : IDetalhesRecarga;
  produto : IProdutoRecarga;
  celular : Integer;
  ddd : Integer;
  valor : Double;
  iteracao: IIteracaoTef;

begin
  // -- Obtenha e escolha sua operadora, produto, número de celular e valor aqui. --

  detalhesRecarga := CoDetalhesRecarga.Create;
  detalhesRecarga.Celular:= celular;
  detalhesRecarga.Ddd:= ddd;
  detalhesRecarga.ValorRecarga:= valor;
  detalhesRecarga.Produto := produto;
  iteracao := cliente.RecargaCelular(detalhesRecarga);
  if Not (iteracao is IDetalhesRecarga) then
  begin
       WriteLn('Não foi possível realizar a recarga.');
       exit;
  end;

  // -- Agora basta imprimir o cupom. --
end.