como tomo en cuenta los decimales cuando son ceros.......

[[cHackAll]]

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!