1.
if FileExists('help.hlp') then
begin
Application.HelpFile :='help.hlp';
Application.HelpCommand(HELP_FINDER, 0);
end
else
Application.MessageBox('帮助文件不存在!','信息提示',mb_iconError+mb_OK);
2.
adoq.sql.add('select * from emp ');
adoq.sql.add('where id='''+eid.text+''' and name='''+ename.text+'''');