[[Al González]]

Si se trata de pesos mexicanos, como alternativa tienes la función ghMXPesos de GH Freebrary:

Código Delphi [-]
Uses
  GHFMath;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := ghMXPesos (10525.37);
  { diez mil quinientos veinticinco pesos 37/100 M.N. }

  Label2.Caption := ghMXPesos (10525.37, True);  // True = primera letra mayúscula
  { Diez mil quinientos veinticinco pesos 37/100 M.N. }

  Label3.Caption := ghMXPesosUpper (10525.37);  // Todo en mayúsculas
  { DIEZ MIL QUINIENTOS VEINTICINCO PESOS 37/100 M.N. }
end;

Saludos.

Al González.