[JuanHC]

procedure TFalbaran.FormActivate(Sender: TObject);
var ListaPick: TStringList ;
begin
ListaPick := TStringList.Create ;
ADOTcolor.Open ;
ADOTcolor.Active := True ;
ADOTcolor.First ;
while not ADOTcolor.Eof do
begin
ListaPick.Add(ADOTcolorDescrip.Text ) ;
ADOTcolor.Next ;
end;
DBGrid1.Columns[3].PickList := ListaPick ;

De esta forma estamos leyendo toda la tabla de ADOTcolor, y lo colocamos en la Columns[3] del dbgrid en la propieda PickList, de este modo nos dara la opcion de seleccionar.


Espero que te sirva.