Colega, Valeu pela ajuda, mas já sou cadastrado naquele site, contudo apos muita procura consegui o que queria. Segue abaixo a rotina: Esta função calcula o digito verificador.
Funciona com Pis/Pasep, conta corrente, agência bancária e CRM.
function DV11(Matr : string): string;
var
X, Cont, Soma, DV, NMatr, nTaman : integer;
begin
Cont := 9;
Soma := 0;
nTaman:=length(matr);
For X := nTaman downto 1 do
begin
NMatr := StrToInt(Copy(Matr,X,1));
Soma := Soma + (NMatr * Cont);
dec(Cont);
if cont=1 then
Cont := 9;
end;
DV := Soma mod 11;
if DV > 9 then DV := 11 - DV;
Result := IntToStr(DV);
end;