Почему возникает ошибка 'Could not convert variant of type (String) into type (Double)'

Написал код для поля "Сумма" :

void __fastcall TDM2::AT3CalcFields(TDataSet *DataSet)
{
//Сумма
        DM2 -> AT3 -> Fields -> Fields[9] -> Value =
        DM2 -> AT3 -> Fields -> Fields[8] -> Value *
        DM2 -> AT3 -> Fields -> Fields[7] -> Value ;
}

Но при запуске появляется ошибка :

Project raised exception class EVariantCastError with message 'Could not convert variant of type (String) into type (Double)'.

Можете пожалуйста подсказать в чём проблема. Заранее спасибо.