Código Delphi [-]Result:=StringOfChar('0',nLen - Length(cVar))+cVar;
Result:=StringOfChar('0',nLen - Length(cVar))+cVar;