Asignar valores a una PickList en tiempo de ejecución ??

Dex
05 de Enero del 2005
Estoy tratando de asignar valores a una lista de una columna de un DBGrid.

Cuando se ejecuta la instrucción :
DBGrid1->Columns->Items[2]->PickList->Add("x");

Marca el error
Project – raised exception class EAccessViolation with message …..

Tambien trato de asignar la lista directamente:

TStringList *TempList = new TStringList;
TempList->Append("x");

DBGrid1->Columns->Items[2]->PickList = TempList;

Y sigue marcando el mismo error !