Код:
procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT модель, чувствительность FROM Speaker WHERE модель = DBLookupComboBox1.Text');
ADOQuery1.Open;
edit5.Text := ADOQuery1.FieldByName('чувствительность').AsString;
end;
Какая- то фигня получается. Откуда в DBLookupComboBox1.Text будет значение, если вы только что закрыли dataset. DBLookupComboBox сам ставит указатель в нужное место.
Код:
procedure TForm1.DBLookupComboBox1OnChange(Sender: TObject);
begin
edit5.Text := ADOQuery1.FieldByName('чувствительность').AsString;
end;