在websnap中创建相应的查询功能，为什么不能实现正确的查询？(100分)

其中程序：
procedure TSingerQuery.Adapter1BeforeExecuteAction(Sender, Action: TObject;
Params: TStrings; var Handled: Boolean);
begin

//初始化 LQuery ,LResult这两个值

if Assigned (SingerQueryPar.ActionValue) then
LQuery:= SingerQueryPar.ActionValue.Values [0];
if Assigned (SingerQueryPar.ActionValue) then
LResult:= SingerQueryPar.ActionValue.Values [0];

end;

//查询按钮被按下后要执行的代码
procedure TSingerQuery.SingerQueryActExecute(Sender: TObject;
Params: TStrings);
begin
//查询数据库的代码
dm.SingerQuery.Close;
//赋参数值到数据库查询中
dm.SingerQuery.Parameters[0].value:=StrToInt(LQuery);
dm.SingerQuery.Open;
//根据查询结果提示信息
if dm.SingerQuery.RecordCount >0 then
begin
LResult:=Format('%d条记录被查找到',[dm.SingerQuery.RecordCount]);
end
else
begin
LResult:=Format('%s记录没有被查找到',[LQuery]);
end;

end;


//显示查询结果统计信息
procedure TSingerQuery.SingerQueryResultGetValue(Sender: TObject;
var Value: Variant);
begin
//将查询结果回显到浏览器中
Value:=LResult;
end;


请指教。

在调试状态下进行跟踪，看看哪里出错。

我想程序可能没错，是不是组件的属性问题呢，请高手给我个具体的方案可以吗