帮我看看这段查询代码出了什么问题(100分)

编译能通过，就是找不到要查询的东西，可明明是存在的？谢了！

procedure Tchazhaoshujufrm.SpeedButton1Click(Sender: TObject);
var
Newstring:string;
ClickedOK:Boolean;

begin
Newstring:='';
ClickedOK:=INputQuery('输入框','请输入查找姓名',Newstring);
if ClickedOK then
with Query1 Do
begin
close;
SQL.Clear;
SQL.Add('select * from 健康档案表 where 姓名:=姓名');
paramByName('姓名').AsString:=Newstring;
open;
end;

end;
procedure Tchazhaoshujufrm.FormCreate(Sender: TObject);
begin
with Query1 do
begin
Close;
SQl.Clear;
SQL.Add('select * from 健康档案表');
open;
end;
end;

end.

SQL.Add('select * from 健康档案表 where 姓名:=姓名');
应该为：SQL.Add('select * from 健康档案表 where 姓名=:姓名');

为粘贴，非代码

动态参数格式不对,那有把:放在前面的! SQL又不是delphi

ok了，谢谢你们呀

SQL.Add('select * from 健康档案表 where 姓名:=姓名');
应该为：SQL.Add('select * from 健康档案表 where 姓名=:姓名');

procedure Tchazhaoshujufrm.FormCreate(Sender: TObject);这个过程出错了么？