[jmlifi]

Si comento

Código Delphi [-]
//PzasTrabajoCODIGO.AsInteger := self.nOrden;
PzasTrabajoPOS.AsString     := AddCeros(PosT,3);
...
...
...

el error da en

Código Delphi [-]
PzasTrabajoPOS.AsString     := AddCeros(PosT,3);