简单查询做成存储过程？该如何处理

简单查询做成存储过程？
简单查询做成存储过程？
create proc testtype
@query varchar(8000)
AS
exec('select*from t_cyryglb '+ @query)
go  

exec testtype 'where xm=''张山'''

这个exec testtype 'where xm=''张山'''
在delphi中该怎么写？那个引号问题


[解决办法]

Delphi(Pascal) code

sql.text:='exec testtype '+Quotedstr('where xm='+Quotedstr('张山'));