[Professor Farnsworth]

Полагаю так должно работать. Не проверял.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.FormCreate(Sender: TObject); begin    DBComboBox1.Items.Add('Вася');    DBComboBox1.Items.Add('Петя');    DBComboBox2.Enabled:=false;    DBComboBox2.Items.Add('Книга');    DBComboBox2.Items.Add('Ручка'); end;     procedure TForm1.DBComboBox1Click(Sender: TObject); begin   If DBComboBox1.Text = 'Вася' then DBComboBox2.Enabled:=true   else DBComboBox2.Enabled:=false; end;