Foros Club Delphi - Calculo código BIC/SWIFT

Hooola!

Yo dispongo de esta lista
Código:
   aBIC:=TStringList.create;

   aBIC.Values['0019']:='DEUTESBBASS';

   aBIC.Values['0031']:='ETCHES2GXXX';

   aBIC.Values['0046']:='GALEES2GXXX';

   aBIC.Values['0049']:='BSCHESMMXXX';

   aBIC.Values['0058']:='BNPAESMZXXX';

   aBIC.Values['0059']:='MADRESMMXXX';

   aBIC.Values['0061']:='BMARES2MXXX';

   aBIC.Values['0065']:='BARCESMMXXX';

   aBIC.Values['0075']:='POPUESMMXXX';

   aBIC.Values['0078']:='BAPUES22XXX';

   aBIC.Values['0081']:='BSABESBBXXX';

   aBIC.Values['0083']:='RENBESMMXXX';

   aBIC.Values['0094']:='BVALESMMXXX';

   aBIC.Values['0108']:='SOGEESMMAGM';

   aBIC.Values['0122']:='CITIES2XXXX';

   aBIC.Values['0128']:='BKBKESMMXXX';

   aBIC.Values['0130']:='CGDIESMMXXX';

   aBIC.Values['0131']:='BESMESMMXXX';

   aBIC.Values['0136']:='AREBESMMXXX';

   aBIC.Values['0138']:='BKOAES22XXX';

   aBIC.Values['0144']:='PARBESMHXXX';

   aBIC.Values['0149']:='BNPAESMHXXX';

   aBIC.Values['0152']:='BPLCESMMXXX';

   aBIC.Values['0154']:='BSUIESMMXXX';

   aBIC.Values['0155']:='BRASESMMXXX';

   aBIC.Values['0156']:='ABNAESMMXXX';

   aBIC.Values['0159']:='COBAESMXTMA';

   aBIC.Values['0160']:='BOTKESMXXXX';

   aBIC.Values['0162']:='MIDLESMXXXX';

   aBIC.Values['0167']:='GEBAESMMBIL';

   aBIC.Values['0168']:='BBRUESMXXXX';

   aBIC.Values['0169']:='NACNESMMXXX';

   aBIC.Values['0182']:='BBVAESMMXXX';

   aBIC.Values['0186']:='BFIVESBBXXX';

   aBIC.Values['0188']:='ALCLESMMXXX';

   aBIC.Values['0190']:='BBPIESMMXXX';

   aBIC.Values['0196']:='WELAESMMFUN';

   aBIC.Values['0198']:='BCOEESMMXXX';

   aBIC.Values['0211']:='PROAESMMXXX';

   aBIC.Values['0216']:='POHIESMMXXX';

   aBIC.Values['0219']:='BMCEESMMXXX';

   aBIC.Values['0226']:='UBSWESMMNPB';

   aBIC.Values['0229']:='POPLESMMXXX';

   aBIC.Values['0231']:='DSBLESMMXXX';

   aBIC.Values['0232']:='INVLESMMXXX';

   aBIC.Values['0233']:='POPIESMMXXX';

   aBIC.Values['0234']:='CCOCESMMXXX';

   aBIC.Values['0236']:='LOYIESMMXXX';

   aBIC.Values['0237']:='CSURES2CXXX';

   aBIC.Values['0487']:='GBMNESMMXXX';

   aBIC.Values['0488']:='BFASESMMXXX';

   aBIC.Values['1000']:='ICROESMMXXX';

   aBIC.Values['1459']:='PRABESMMXXX';

   aBIC.Values['1460']:='CRESESMMXXX';

   aBIC.Values['1465']:='INGDESMMXXX';

   aBIC.Values['1467']:='EHYPESMXXXX';

   aBIC.Values['1474']:='CITIESMXSEC';

   aBIC.Values['1479']:='NATXESMMXXX';

   aBIC.Values['1497']:='ESSIESMMXXX';

   aBIC.Values['1524']:='UBIBESMMXXX';

   aBIC.Values['2000']:='CECAESMMXXX';

   aBIC.Values['2013']:='CESCESBBXXX';

   aBIC.Values['2038']:='CAHMESMMXXX';

   aBIC.Values['2045']:='CECAESMM045';

   aBIC.Values['2048']:='CECAESMM048';

   aBIC.Values['2056']:='CECAESMM056';

   aBIC.Values['2080']:='CAGLESMMVIG';

   aBIC.Values['2085']:='CAZRES2ZXXX';

   aBIC.Values['2086']:='CECAESMM086';

   aBIC.Values['2095']:='BASKES2BXXX';

   aBIC.Values['2100']:='CAIXESBBXXX';

   aBIC.Values['2103']:='UCJAES2MXXX';

   aBIC.Values['2108']:='CSPAES2L108';

   aBIC.Values['3025']:='CDENESBBXXX';

   aBIC.Values['3035']:='CLPEES2MXXX';

   aBIC.Values['3058']:='CCRIES2AXXX';

   aBIC.Values['3081']:='BCOEESMM081';

   aBIC.Values['3183']:='CASDESBBXXX';

   aBIC.Values['3501']:='RENTESMMXXX';

   aBIC.Values['3524']:='AHCFESMMXXX';

   aBIC.Values['3563']:='MISVESMMXXX';

   aBIC.Values['3575']:='INSGESMMXXX';

   aBIC.Values['3604']:='CAPIESMMXXX';

   aBIC.Values['3641']:='LISEESMMXXX';

   aBIC.Values['3656']:='CSSOES2SFIN';

   aBIC.Values['3661']:='MLCEESMMXXX';

   aBIC.Values['3669']:='IVALESMMXXX';

   aBIC.Values['3682']:='GVCBESBBETB';

   aBIC.Values['9000']:='ESPBESMMXXX';

   aBIC.Values['9020']:='IPAYESMMXXX';

   aBIC.Values['9091']:='XBCNESBBXXX';

   aBIC.Values['9092']:='XRBVES2BXXX';

   aBIC.Values['9093']:='XRVVESVVXXX';

   aBIC.Values['9094']:='MEFFESBBXXX';

   aBIC.Values['9096']:='IBRCESMMXXX';
Para acceder al BIC tan solo debes usar algo similar a esto
Código:
Result:=aBIC.Values[copy(Iban,5,4)]
Saludos!