//uses Iban4Pas.Iban, Iban4Pas.IbanUtil, Iban4Pas.Bic, Iban4Pas.BicUtil, Iban4Pas.CountryCode;

var
    Iban: IIban;
begin
    // How to generate Iban
    Iban := TIban.Builder()
                .countryCode(TCountryCode.AT)
                .bankCode('19043')
                .accountNumber('00234573201')
                .build();


    // How to create Iban object from String
    Iban := TIban.valueOf('DE89370400440532013000');

    // How to create Iban object from formatted String
    Iban := TIban.valueOf('DE89 3704 0044 0532 0130 00', TIbanFormat.Default);

    // How to generate random Iban
    // This is not supported in the Delphi port until now:
    //Iban := TIban.random(CountryCode.AT);
    //Iban := TIban.random();
    //Iban := TIban.Builder()
    //             .countryCode(CountryCode.AT)
    //             .bankCode("19043")
    //             .buildRandom();

    // How to validate Iban
    try
        TIbanUtil.validate('AT611904300234573201');
        TIbanUtil.validate('DE89 3704 0044 0532 0130 00', TIbanFormat.Default);
        // valid
    except
        // invalid
        on E: EIbanFormatException do
          ShowMessage(E.Message);
        on E: EInvalidCheckDigitException do
          ShowMessage(E.Message);
        on E: EUnsupportedCountryException do
          ShowMessage(E.Message);
    end;
end;

var
    Bic: IBic;
begin
    //How to create Bic object from String
    Bic := TBic.valueOf('DEUTDEFF');

    //How to validate Bic
    try
        TBicUtil.validate('DEUTDEFF500');
        // valid
    except
        on E: EBicFormatException do
          //invalid
          ShowMessage(E.Message);
    end;
end;