KeyValue

[SGroot]

Программисты помогите пожалуйста, чтоб лишнее не писать)

выбираю запись из DBLookupComboBox и цена выводится в DBEdit
но у меня много записей в таблице, можно как-то переделать чтоб была типа

KeyValue = 1-10000
).Value := 1-10000;

procedure TForm3.DBLookupComboBox8Click(Sender: TObject);
begin
if ( DBLookupComboBox8.KeyValue = 1 ) then
begin
ADOQuery7.Parameters.ParamByName('J').Value := 1;
ADOQuery7.Active:=false;
ADOQuery7.Active:=true;
DBEdit25.Text := ADOQuery7.FieldByName('Цена1шт').AsString;
end;

[Toxa]

если я правильно понял, то надо делать так

ADOQuery7.Parameters.ParamByName('J').Value := DBLookupComboBox8.KeyValue;