[Lazarus-es] Asignar datos a celdas de un DBGrid

[Anxo Vázquez]

Tengo el siguiente código:

procedure TfrmPedVen.ZqryLinPedvcodartChange(Sender: TField);
 begin
  ZqryArt.Open;
  ZqryArt.First;
  while not ZqryArt.EOF do
   begin
    if Sender.AsString = ZqryArt.FieldByName('codigo').AsString then
      begin
       dbgLinFac.Column[1].Celda := ZqryArt.FieldByName('descri').AsString;
  //Aquí es donde trato de asignar, sin éxito, el valor a la celda del
grid.
     end;
   ZqryArt.Next;
  end;
  ZqryArt.Close;
end;

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.

Un saludo y mucahs gracias.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20130211/8065e8e8/attachment-0002.html>