如何将字符串切开 (20分)

我要查询产品ID号,用户可以通过输入001,002,003来查询出相应产品.
在select * from product where productid in (''001'',''002'',''003'').
我想将字符串切开后再加上'''', 然后再来查询.请大家给个例子

var
; c:char;
; i:integer;
; s,st:string;
begin
; ;i:=1;
; ;st:='';
; ;repeat
; ; ;s:='';
; ; ;repeat
; ; ; s:=edit1;
; ; ; inc;
; ;until (edit1=',') or (i=length(edit1.text));
; ;st:=st+s;
; ;until i=length(edit1.text);

不知道行不行？

if Trim(Str)='' then
; Exit;
SQLText:='';
i:=Pos(',',Str);//Str='001,002,003.....'
while i>0 do
begin
; SQLText:=SQLText+''''+Copy(Str,1,i-1)+''',';
; Delete(Str,1,i);
; i:=Pos(',',Str);
end;
SQLText:=SQLText+''''+Str+'''';
Query1.SQL.Add(SQLText);

多人接受答案了。