Аргументы имеют неверный тип, выходят за пределы

TADOQuery *query = new TADOQuery(DataMod);
            query->Connection = DataMod->Connection;
            query->SQL->Clear();
            // Ошибка в этой строке            
            query->SQL->Add("SELECT EXISTS (SELECT pInvoiceNumber FROM tInvoice WHERE pInvoiceNumber = :invoiceNumber) as pExists"); 
            ConfigureParam(query->Parameters->ParamByName("invoiceNumber"), ftString, "123456", 255, 0);
            query->Open();
            for(int i = 0; i < query->RecordCount; i++){
                ShowMessage(query->FieldByName("pExists")->AsInteger);
                query->RecNo++;
            }

 Функция ConfigureParam
void    __fastcall ConfigureParam(TParameter *param, TFieldType dataType, Variant value, int size, int precision){
    param->DataType = dataType;
    param->Size = size;
    param->Value = value;
    param->Precision = precision;
}

try{
        TADOQuery *query = new TADOQuery(DataMod);
        try {
            query->Connection = DataMod->Connection;
            query->Connection->BeginTrans();
             // Удаление из содержимого накладной
            query->SQL->Clear();
            query->SQL->Text = "DELETE FROM tInvoiceContent "
                                "WHERE pInventoryNumber=:inventoryNumber "
                                "AND pInvoiceNumber=:invoiceNumber "
                                "AND pID=:idParam ";
            ConfigureParam(query->Parameters->ParamByName("inventoryNumber"), ftString, inventoryNumber);
            ConfigureParam(query->Parameters->ParamByName("invoiceNumber"), ftString, invoiceNumber);
            ConfigureParam(query->Parameters->ParamByName("idParam"), ftLargeint, id);
            query->ExecSQL();
            // Отнимаем со склада к-во удаляемого товара
            OperationWithStorageCount(inventoryNumber, depotName, count, true);
            DataMod->Connection->CommitTrans();
        } __finally {
            delete query;
        }
    }