Delphi 2006, se queda bloqueado...

[jmlifi]

Tengo el siguiente código:

Código Delphi [-]
procedure TEdTrabajoFrm.SalvaPzas;
var
   n, PosT   : integer;
   Pedido    : longint;
   Orden     : string;
begin
   PosT  := 0;
   with TrabajosFrm do begin
     PzasTrabajo.OnNewRecord  := nil;
     try
        for n:=1 to nPzas do begin
           ExtPedidoOrden(dtPiezas[n].Cliente,Pedido,Orden);
           if dtPiezas[n].Cant>0 then begin
              inc(PosT);
              PzasTrabajo.Append;
              PzasTrabajoCODIGO.AsInteger := self.nOrden;
              PzasTrabajoPOS.AsString     := AddCeros(PosT,3);
              PzasTrabajoPEDIDO.AsInteger := Pedido;
              PzasTrabajoO_PED.AsString   := Orden;
              PzasTrabajoCANT.AsInteger   := dtPiezas[n].Cant;
              PzasTrabajoTIEMPO.AsFloat   := dtPiezas[n].Tiempo / 60; // en min
              PzasTrabajo.Post;
           end
        end
     finally
       PzasTrabajo.OnCalcfields := PzasTrabajoCalcfields
     end
   end
end;

cuando llego a "PzasTrabajoCODIGO.AsInteger := self.nOrden;" se queda bloqueado. nOrden tiene valor. ¿ a qué se debe ?

[marcoszorrilla]

Prueba a comentar esa línea, a ver si el resto va bien.

Código Delphi [-]
//PzasTrabajoCODIGO.AsInteger := self.nOrden;
//o
PzasTrabajoCODIGO.AsInteger := 8;

Un Saludo.

[jmlifi]

ya lo intente antes. Pero, sigue igual

[mamcx]

Que valor?
Se queda bloqueado en el debugger?
Tienes al menos el primer patch de D2006?

[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);

[mamcx]

Porque haces un loop con for en vez de un while?

Sera que el objeto esta null?