[Professor Farnsworth]

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

Код:

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;