调用Locate时为什么会出现EVariantTypeCastError异常？

Question

这行代码：

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');

是否有人可能出错？