[maxzama]

Gracias. BDWONG, ecfisa, Casimiro Notevi.

Codigo final:

Código Delphi [-]
function InsertPoint(Value: string; const Ch:Char; const PosChar: Integer): string;
begin
  Insert(',', Value, Length(Value)-PosChar-1);
  Result := Value;
end;

Código Delphi [-]
      Monto:=copy(Cad,56,15);
                    Monto:=StringReplace(Monto, ',', '',[rfReplaceAll, rfIgnoreCase]);
                    Monto:= IntToStr(StrToInt(Monto));
                    Monto:=InsertPoint(Monto,',', E);