linha digitável darf e dar

Estou desenvolvendo junto com um programador um sistema que calcula icms-st e preciso gerar o documento de arrecadação do DF (d.a.r.) e tenho necessidade de calcular o digito verificador de cada um dos 4 grupos numéricos. Parece que a regra é a mesma do DARF. Fico grato se alguém poder ajudar, melhor ainda se for já com os códigos em delphi ou alguma linguagem de programação.