[rufo]

Hola amigos tengo un dilema resulta que quiero pasar una cantidad numerica a letras por ejemplo $12.50 Doce con cincuenta centavos, ya pude hacer que me aparesca la cifra con letra pero ahora resulta que no veo la forma para que aparesca la palabra centavos cuando halla centavos en la cifra les anexo mi codigo que estoy usando.

function Deletrear(numero: real) : string; var
  letras: TLetras;
begin
  letras := TLetras.Create(nil);
  try
    letras.Numero := numero;
    Result := letras.AsString;
  finally
    letras.Free;
  end;
end;

procedure TAlta_factura.Button3Click(Sender: TObject);
var
 n: String;
begin
  n:= Deletrear(StrToFloat(Edit10.Text) );
  label5.Caption:= (n);
end;

Les comento que este codigo lo agarre de aqui del foro pero quiero que me aparescan la palabra centavos, bueno espero que me ayuden y gracias de antemano.