Removing leading zeros

Hi, I'm exporting a group of a decimal fields to txt and I'm getting those fields with leading zeros: 000000246 and the result I pretend is 246.
I did this funtion below and tried the same function with the parameters on DELCHAR and it didnt work.
Any tip?

DecimalNumeralZeroFormat(Amount,9)

//Respective Function

LOCAL DecimalNumeralZeroFormat(DecimalNumeral : Decimal;Length : Integer) : Text[250]
EXIT(TextZeroFormat(DELCHR(FORMAT(ROUND(ABS(DecimalNumeral),1,'<'),0,1)),Length));