这行代码：
Q.Locate('HS_VID', VarArrayOf([hsVid]), []);
给了我这个错误：
Project Test.exe引发了异常类EVariantTypeCasterror，并显示消息“无法转换类型的变体（OleStr）”。
变量声明如下：
var
Q: TADOQuery;
hsVid: string;
Q已在HS_VID字段上编入索引。 Q的SQL是：
Q.SQL.Add('SELECT * FROM HS_CONTSILO ORDER BY HS_VID');
是否有人可能出错？