unit uIBANUtils;

interface

uses
  SysUtils, Classes, IBAN;

function EsCodigoIBANValido(AIBAN : string): boolean;

implementation

function EsCodigoIBANValido(AIBAN : string): boolean;
var
  auxIBAN : TIBAN;
begin
  auxIBAN.Create;
  try
    auxIBAN.IBAN := AIBAN;
    Result := auxIBAN.Valid;
  finally
    FreeAndNil(auxIBAN);
  end;

end;

end.