Separar cadena de numeros

[roman]

¡Qué cosa más rara! Pero si he entendido bien, esta función te puede servir:

Código Delphi [-]
function NumeroADigitos(N:Integer): String;
const
  Digitos: array[0..9] of String = (
    'cero', 'uno', 'dos', 'tres', 'cuatro',
    'cinco', 'seis', 'siete', 'ocho','nueve'
  );

var
  S: String;
  D, I: Integer;

begin
  S := IntToStr(N);
  for I := 1 to Length(S) do
  begin
    D := StrToInt(S[i]);
    Result := Result + Digitos[D] + ' ';
  end;

  Result := Trim(Result);
end;

// Saludos