procedure TfrmTestes.btn8Click(Sender: TObject);
var
Verificador: Integer;
Valor: integer;
Num: string;
begin
Num := edtRenavam.Text;
Verificador := StrToInt(num[11]);
Valor := ((StrToIntDef(num[1],0) * 3 +
StrToIntDef(num[2],0) * 2 +
StrToIntDef(num[3],0) * 9 +
StrToIntDef(num[4],0) * 8 +
StrToIntDef(num[5],0) * 7 +
StrToIntDef(num[6],0) * 6 +
StrToIntDef(num[7],0) * 5 +
StrToIntDef(num[8],0) * 4 +
StrToIntDef(num[9],0) * 3 +
StrToIntDef(num[10],0) * 2)
* 10)
mod 11;
if Valor = 10 then
Valor := 0;
if Valor = Verificador then
showmessage ('Renavam nº '+ edtRenavam.Text + ' Valido!!!')
else
showmessage ('Renavam nº '+ edtRenavam.Text + ' invalido!!!');
end;