Algorítimo para validação de CNH

Olá comunidade,

Hoje resolvi disponibilizar um algoritmo para a validação de CNH, essa função já contempla os dois modelos de CNH. Aproveitem!

function ValidaCNH(cnh: string): Boolean;
 function valida_new_cnh(cnh: String): Boolean;
 var
   Soma, Conta, Dv, Digito, i: Integer;
   CnhN: String;
   NumerosIguais: Boolean;
 begin
   Result := False;
   NumerosIguais := True;

   CnhN := FormatFloat('00000000000', StrToFloat(trim(cnh)));
   Soma := 0;

   {Validando se todos o números são iguais}
   for i := 1 to length(CnhN) - 1 do
     if CnhN[1] <> CnhN[i] then
       NumerosIguais := False;

   if NumerosIguais then
     Exit;

   for i := 1 to length(CnhN) - 2 do
     Soma := Soma + (StrtoInt(CnhN[i]) * (i + 1));

   Conta := (Soma div 11) * 11;
   if (Soma - Conta) < 2 then
     Dv := 0
   else
     Dv := 11 - (Soma - Conta);

   Digito := StrToInt(CnhN&#91;10&#93;);

   if Digito = Dv then
     Result := True;
 end;

 function valida_old_cnh(cnh: String): Boolean;
 var
   Soma, Conta, Dv, Digito, i: Integer;
   CnhN: String;
   NumerosIguais: Boolean;
 begin
   Result := False;
   NumerosIguais := True;;

   CnhN := FormatFloat('000000000', StrToFloat(trim(cnh)));
   Soma := 0;

   {Validando se todos o números são iguais}
   for i := 1 to length(CnhN) - 1 do
     if CnhN&#91;1&#93; <> CnhN[i] then
       NumerosIguais := False;

   if NumerosIguais then
     Exit;

   for i := 1 to length(CnhN) - 1 do
     Soma := Soma + (StrtoInt(CnhN[i]) * (i + 1));

   Digito := StrToInt(CnhN[9]);
   Conta := Soma mod 11;

   if Conta = 10 then
     Conta := 0;

   if Digito = Conta then
     result := True;
 end;
begin
 result := (valida_new_cnh(cnh) or valida_old_cnh(cnh));
end;

Bom eu testei com algumas CNH’s e ela funcionou na boa, se tiverem problema me avisem.

Abraço a todos.