[Cabanyaler]

Código Delphi [-]
// Calcul de la lletra del CIF O NIE
// Si es NIE cal introduir la X previa al número al  parametro DNI
function TFPrincipal.CaracterDNI(DNI: string): Char;
begin
    if not((Length(DNI)> 8) or (Length(DNI)< 7)) then     // El CIF deu de ser de 8 o 7 cifres, o el NIE de 7 cifres + la lletra X
    begin
       if (DNI[1] = 'X') then         // validació per a NIE
       begin
          Result := Copy('TRWAGMYFPDXBNJZSQVHLCKET',StrToInt(copy(DNI,2,7)) mod 23+1,1)[1];
       end
       else                           // validació per a DNI
          Result := Copy('TRWAGMYFPDXBNJZSQVHLCKET',StrToInt(DNI) mod 23+1,1)[1];
    end
    else
    begin
        MessageDlg('El CIF o NIE es incorrecto!',mtinformation,[mbOK],0);
        result :=  '#';
    end;
end;