Присвоение переменной значение поля таблицы

Way=ADOQuery2->SQL->Add("Select Расстояние_км from Путевой_лист when Код_путевого_листа = "+ DBEdit1->DataField +";");

ADOQuery2->SQL->Add("Select Расстояние_км from Путевой_лист when Код_путевого_листа = "+ DBEdit1->Text);
ADOQuery2->Open();
Way = ADOQuery2->FieldByName("Расстояние_км")->AsString;

int Way;// перменная для ввода пути
int Rashod;// перменная для расхода
float Price;// перменная для цены топлива. Это значение берём из Едита
int r;// здесь результат
ADOQuery2->SQL->Clear();// очищаем значение. Зачем не знаю, но решил перестраховаться
ADOQuery2->SQL->Add("SELECT Расстояние_км FROM Путевой_лист WHERE Код_путевого_листа = "+ DBEdit2->Text);// собственно говоря сам запрос. поля у меня 2 так что и запроса соответственно тоже 2
ADOQuery2->Open();// выполняю запрос
Way = ADOQuery2->FieldByName("Расстояние_км")->AsInteger;// присваиваю
 
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("SELECT Расход_топлива_на_100км FROM Автомобиль WHERE Код_автомобиля = " + DBEdit1->Text);
ADOQuery1->Open();
Rashod= ADOQuery1->FieldByName("Расход_топлива_на_100км")->AsInteger;// по сути выполнил те же самые действия но для второго случая
 
Price=StrToFloat(Edit1->Text);// считал цену из едита
r=(Way/100)*Rashod*Price;// подсчитал по формуле
Label5->Caption="Результат: "+ IntToStr(r);// вывел результат

ADOQuery1->SQL->Add("SELECT Расход_топлива_на_100км FROM Автомобиль WHERE Код_автомобиля =  '"+DBEdit1->Text+"'");