Calcular la letra del NIF según el DNI

type 
  EInvalidDNICIF = class(Exception);
 
function CaracterDNI(Numero: LongInt): Char;
const 
  Caracteres: string = 'TRWAGMYFPDXBNJZSQVHLCKET';
begin 
  if (Numero > 99999999) or (Numero < 10000000) then raise 
    EInvalidDNICIF.Create('Numero DNI invalido');
  CaracterDNI := Caracteres[(Numero mod 23)+1];
end;