一个存储过程的片段

select .... from ..

where ... and F_SubjectCode in (@mKind)


如何给这个@mKind赋值??比如我想要传入值后为 F_SubjectCode in ('101001,'101002','101003') 


我是这样写的
...
...
mSubject:='';
for i:=0 to mTString.Count-1 do
  begin
    mSubject:=mSubject+''''+mTString.Strings[i]+'''';
    if i< mTString.Count-1 then mSubject:=mSubject+',';
  end;

  with AdoStoredProc1. do
    begin
      Close;
      Parameters[1].Value:=...
      Parameters[2].Value:=...;
      Parameters[3].Value:=mSubject;    //这儿对应的是存储过程的@Kind参数
      Parameters[4].Value:=...;
      Parameters[5].Value:=...;
      Parameters[6].Value:=.....;
      Open;
    end;
能运行，却查询不到结果
急盼解决!!!!