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 ?