delphi中写SQL语句

sSQL:='Insert into goods(Qname,QPrice,QLuJin,QQiDing,QYuanJia,QMemo,QTime) values ('''
+sQname+''','''+sQPrice+''','''
+'QuPic\'+edt1.Text+'.jpg'+''','''
+EDT4.Text+''','''+Edt5.Text+''','''
+mmo1.Text+''','''+sQTime+''')';
qry1.SQL.add(sSQL);
qry1.ExecSQL;
qry1.Close;

eg:
uses
DB;

var
dst_DataList:TDataSet
begin
Str_SQL:=' Select * from Table where Field=?';
dst_DataList:=GetDataSetFromSQL(Str_SQL);
....
freeandnil(dst_DataList);
end;
子函数:
function GetDataSetFromSQL(Str_SQL:String):TDataSet;
begin

end;

？？？？
变量 s:='select.........';
adoquery.close;
adoquery.sql.text:=s;
adoquery.open;