Delphi 6下的数据库SQL疑问

try
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select books."NUMBER", books."NAME", books."ISIN" From "F:\delphi\myproject\npu library system\database\books.DBF" As books ');
Query1.SQL.Add('WHERE books."NAME" = "%:NAME%"');
Query1.ParamByName('NAME').AsString:=EditSearch.Text;
Query1.Open;

except
ShowMessage('SQL命令执行错误!');
end;
end;
小鸟在做一个图书管理系统，但在由关键字在书名中查找时老是出错，请大侠指点！！！万分感激！！！上面是查找模块的代码。