Обработка по нескольким значениям из ADOQuery (для выделенной в DBGrid строки)

AdoCommandTSCalc.CommandText:= 'SELECT ID_машины, Состояние, Пробег, Время_эксплуатации, CCPC, CPC, CDC FROM ТС WHERE ID_машины=StrtoInt(DBEditCID.Text)';

procedure TMainForm.TSCalcBtnClick(Sender: TObject);
var i, i2, intCarDrvs, extCarDrvs, CarPercCond, intCarPath, extCarPath: integer;
begin
  for i:= 0 to DBGrid1.DataSource.DataSet.FieldCount - 1 do
    if i = j then
    begin
      AdoCommandTSCalc.CommandText:= 'SELECT ID_машины, Состояние, Пробег, Время_эксплуатации, CCPC, CPC, CDC FROM ТС WHERE ID_машины=StrtoInt(DBEditCID.Text)';
      intCarDrvs:= (CVDataModule.ADOQueryMain.FieldByName('CDC').Value).AsInteger;
      extCarDrvs:= (CVDataModule.ADOQueryMain.FieldByName('Время_эксплуатации').Value).AsInteger;
      CarPercCond:= (CVDataModule.ADOQueryMain.FieldByName('CCPC').Value).AsInteger;
      intCarPath:= (CVDataModule.ADOQueryMain.FieldByName('CPC').Value).AsInteger;
      extCarPath:= (CVDataModule.ADOQueryMain.FieldByName('Пробег').Value).AsInteger;
 
      for i2:= intCarDrvs to extCarDrvs do
      begin
        if (extCarPath - intCarPath > 0) and (extCarPath - intCarPath <= 50)
        then CarPercCond:= CarPercCond - 1 else
          if (extCarPath - intCarPath >= 51) and (extCarPath - intCarPath <= 200) then CarPercCond:= CarPercCond - 2 else CarPercCond:= CarPercCond - 3;
      end;
      
      if (CarPercCond <=100) and (CarPercCond >=30)
      then CVDataModule.ADOQueryMain.FieldByName('Состояние').AsString:= 'Исправен' else
        if (CarPercCond <=29) and (CarPercCond >=5)
        then CVDataModule.ADOQueryMain.FieldByName('Состояние').AsString:= 'Рекомендуется ТО' else CVDataModule.ADOQueryMain.FieldByName('Состояние').AsString:= 'Требуется ремонт';
 
    end;
end;

intCarDrvs:= CVDataModule.ADOQueryMain.FieldByName('CDC').AsInteger;

CVDataModule.ADOQueryMain.DataSource.Edit;