这个一般的SQL 查询写成存储过程如何写?

if trim(edit1.text)<>'' then asql:=' AND namefull='''+trim(edit1.text);
if trim(edit2.text)<>'' then asql:=asql+' AND nameshort='''+trim(edit2.text);
if trim(edit3.text)<>'' then asql:=asql+' AND city='''+trim(edit3.text);if asql<>'' then
begin
  DataModule1.adoquery1.close;
  DataModule1.adoquery1.sql.text:='SELECT * FROM customer WHERE custid<>0'+asql;
  DataModule1.adoquery1.open;
end;多谢先!!