[ecfisa]

Hola.

Creo que lo que buscas es algo así:

function NumeroALetra(Valor, Letras:string): string;
var
  i: Byte;
begin
   if Length(Letras) < 10 then  // Letras debe tener al menos 10 caracteres
      Exit;
  Result:= '';
  for i:= 1 to Length(Valor) do
    if Valor[i] = '.' then
      Result:= Result + '.'
    else
      Result:= Result + Letras[Ord(Valor[i])-Ord('0')+1];
end;

Donde los parámetros Valor y Letras pasan el valor y las letras que
decidas asignarle respectivamente.

Ejemplo de llamada:
ShowMessage(NumeroALetra('593727.90813','NACRXPZEDA'));
ó
Cad1:= NumeroALetra(Num,Let); // siendo Cad1, Num y Let variables de tipo string

Saludos.