Değişken' den sql in içerisini doldurma

[emrgln]

Şöyle birşey hazırladım. Uyarlayabilirsiniz.

procedure TForm1.Button2Click(Sender: TObject);
var
 List:TstringList;
 sqlText,inText:String;
 i:integer;
begin
  List:=TstringList.Create;
  List.Delimiter := ',';
  List.DelimitedText := 'aaa,bbb,ccc';

  for i:=0 to List.count-1 do
  begin
     if i<>List.count-1 then
     inText:= inText+QuotedStr(List[i])+','
     else
     inText:= inText+QuotedStr(List[i]);
  end;

end;