[arc22]

Hola todos mi consulta es la siguiente:

Tengo un dbgrid conectado a una tabla y quiero que en la misma columna de ese dbgrid aparezcan distintas listas desplegables para cada registro (según campos de otra tabla).
Hasta ahora estoy usando esto:

procedure TForm3.Table1NewRecord(DataSet: TDataSet);
var
i:Integer;
lista: TStrings;
begin
lista:= TStringList.Create;
for i:=1 to table2stock.asinteger do
lista.Add (IntToStr (i));
DBGrid1.Columns[0].PickList:= lista; {1}
lista.Destroy;
end;

Pero lo que hace esto es cargar la misma lista para todos los registros.
Obviamente el problema está en {1} debo poder separar la fila seleccionada para cargar la picklist, pero hasta ahora no encuentro el método adecuado.
También probé ponerlo en el evento oncellclick del dbgrid pero parece no funcionar.
Si alguien puede darme una ayudita desde ya se lo voy a agradecer.
Saludos.