各位大哥,请教一下这个有关查询的简单问题,先谢了~

各位大哥,请教一下这个简单问题:

procedure Tseestu.Button1Click(Sender: TObject);
var sname:String;
begin
    sname:=edit1.text;
    Panel1.Show;
    Panel1.Visible:=true;
    query1.Close;
    query1.SQL.Clear;
    query1.SQL.add('select * from student where sname=:sname');
    query1.ExecSQL;
end;

要实现通过EDIT1中的输入实现按姓名查询,请问

query1.SQL.add('select * from student where sname=:sname');的正确写法应该怎么写?

如可以请给详细的查询代码.在此谢过~~~