Tengo el siguiente código:<div><br><div><span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">procedure TfrmPedVen.ZqryLinPedvcodartChange(Sender: TField);</span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)"> begin</span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">  ZqryArt.Open;</span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">  ZqryArt.First;</span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">  while not ZqryArt.EOF do</span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">   begin</span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">    if Sender.AsString = ZqryArt.FieldByName('codigo').AsString then</span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">      begin</span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">       dbgLinFac.Column[1].Celda := ZqryArt.FieldByName('descri').AsString;   //Aquí es donde trato de asignar, sin éxito, el valor a la celda del grid. </span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="background-color:rgb(225,235,242);color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px">     end;</span><br><span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">   ZqryArt.Next;</span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">  end;</span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">  ZqryArt.Close;</span><br style="margin:0px;padding:0px;color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">end; </span></div><div>
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)"><br></span></div><div>
<span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">Lo que trato de hacer es que al seleccionar un valor de un Picklist este se asigne a la primera celda del DBGrid, esto lo hace bien, y que en la siguiente celda aparezca la descripción, cosa que no consigo.</span></div>
<div><span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)"><br></span></div>
<div><span style="color:rgb(51,51,51);font-family:'Lucida Grande','Trebuchet MS',Verdana,Helvetica,Arial,sans-serif;font-size:13px;line-height:18.1875px;background-color:rgb(225,235,242)">Un saludo y mucahs gracias. </span></div>
</div>