Calculo de la letra del N.I.F

Consideramos el número del DNI como un string:

dni:='123456789';
showmessage(copy('TRWAGMYFPDXBNJZSQVHLCKET',StrToInt(dni) mod 23 + 1,1));