بردن عناصر یک آرایه به کیوری

[matinebi]

چطور میتونم با عناصر یک آرایه عمل فیلتر رو انجام بدم

ADOQuery1.SQL.Add('where(TBLname like'+quotedstr('%'+Aray[i]+'%')+'or TBLname like'+quotedstr('%'+Aray[i+1]+'%')+')');

مثلا مثل حالت بالا ولی میخوام تمام عناصر آرایه در کیوری قرار گیرند

[ghabil]

if Length(Array) > 0 then
condStr = 'Where TBLName like ' + quotedStr('%' + array[1] + '%' ) ';
for i= 2 to length(array) do
condStr = CondStr + ' or TBLName like ' + quotedStr('%' + array[i] + '%' ) ';

ADOQuery1.SQL.Add(condStr);

[matinebi]

فقط کوتیشن آخر لازم نیست

if Length(Array) > 0 then
condStr = 'Where TBLName like ' + quotedStr('%' + array[1] + '%' ) ;
for i= 2 to length(array) do
condStr = CondStr + ' or TBLName like ' + quotedStr('%' + array[i] + '%' ) ;

ADOQuery1.SQL.Add(condStr);

با تشکر