رسالة خطأ عن تشغيل التطبيق

السلام عليكم ،،،

راجع هذا الحدث ربما تجد الخطأ به .

procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet);

السلام عليكم ورحمة الله

أخي كما هو واضح من الرسالة انه عندك متغير من نوع Variant وهذا المتغير بتحول قيمته إلى متغير ثاني من نوع String هنا يكمن الخطاء في التحويل أرجو أن أكون أصبت