[maxzama]

gracias, disculpa la molestia.

lo tenia en mis narices:

Código Delphi [-]
AuxStr := Edit1.Text + StringOfChar('0', 11-LenStr);

Código Delphi [-]
He := h+StringOfChar ‎('0',10-length(h));