Hola LizVazquez, bienvenida seas al Club...
El código que dejaste al parecer SI funciona, pero:
Código Delphi
[-]function IntToStr(Value: Integer; Len: Cardinal = 0; Chars: Char = '0'): string;
begin
Str(Value, Result);
while Length(Result) < Len do
Result := Chars + Result;
end;
procedure TForm1.Button1Click(Sender: TObject);
var Monto: extended;
begin
Monto := 3.00;
Caption := '( ' + IntToStr(Trunc(Monto)) + ' PESOS ' + IntToStr(Trunc(Frac(Monto) * 100), 2) + ' /100 CTVOS )';
end;
0j0: No es la "mejor" forma de hacerlo pero funciona!