PickList

[xanxov]

TEngo un dbgrid con un picklist en la primera columna, para llenarlo uso el siguiente código:

procedure TfrmPedVen.dbgLinFacCellClick(Column: TColumn);
begin
ZqryArt.Open;
ZqryArt.First;
dbgLinFac.Columns[0].PickList.Clear;
while not ZqryArt.EOF do
begin
dbgLinFac.Columns[0].PickList.Add(ZqryArt.FieldByName('codigo').AsString);
ZqryArt.Next;
end;
ZqryArt.Close;
end;

El caso es que el picklist no carga hasta que se escribe algo en la celda. He probado con varios eventos sin resultado. Muchas gracias.