还是关于SQL.Add(...)的问题

Question

我的问题是：如何通过调用过程的排序条件参数来动态的改变排序条件？
procedure SortBy(sortstr:string);
begin
....
with Query1 do 
begin
SQL.Add('select * from 学生.DB where 年龄<:Pdate Order by sortstr');
ParamByName('Pdate').AsInteger:=30;
end;
....
end;然后调用
SortBy('年龄');
SortBy('姓名');

Answer 1

with Query1 do 
begin
SQL.Add('select * from 学生.DB where 年龄<:Pdate Order by '+sortstr);
ParamByName('Pdate').AsInteger:=30;
end;
....
end;

Answer 2

SQL.Add('select * from 学生.DB where 年龄<:Pdate Order by '+#39+sortstr+#39);