Попробуйте такой код:

Variant vParam;
vParam = Variant(num_id);
RQuery->SQL->Text = "SELECT TypeId FROM Meterings WHERE NumberId = :NumId";
RQuery->Parameters->ParseSQL(RQuery->SQL->Text, true);
query->Parameters->ParamValues["NumId"]=vParam;
RQuery->Open();

Если его надо запускать несколько раз, то лучше "приготовить" запрос и метод ParseSQL вызывать только один раз.
На мой взгляд sizeof(vParam) здесь вообще не в кассу:
RQuery->Parameters-> CreateParameter("NumId", ftInteger, Adodb::pdInput, sizeof(vParam), vParam);