请问各位大侠，在delphi中如何edit1中输入商品编号在edit2中自动显示商品名称

1. 请问各位大侠，在delphi中如何edit1中输入商品编号在edit2中自动显示商品名称

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with adoquery1 do begin
    close;
    sql.Clear;
    sql.Add('select name from Table1 where code like :a');
    Parameters.ParamByName('a').Value:='%'+Trim(Edit1.Text)+'%';
    open;
    if Recordcount>0 then
    Edit2.Text:=Fieldbyname('name').AsString;
  end;
end;

这里我写在Edit1的OnKeyUp事件中了 
 
我觉得写在Edit1的OnKeyPress事件中比较好 用if key:=#13 then begin end;语句来判断
这样的话就要每次输入完商品编号之后按一下回车键才会执行上面的代码

2. 电脑开机一直嗡嗡响，红灯闪，这个灯是什么灯？如何解决？请各位大侠帮助！如图

硬盘灯  估计硬盘受损严重

3. 如何设置让word不自动生成编号？各位大侠，每次编写文字序号，一按enter，就自动生成一个序号，求解答

格式——项目符号和编号——选“无”。或者在第一次回车生成序号的时候删除掉，后面再回车就不会出现了。

4. 请各位大侠帮忙看看，挣值法在project中如何操作？谢谢！

“最好的股票软件排行榜”汇集了广大股民对市场上热门的股票软件、股票论坛以及网站的详细排行榜，一切都是免费的，您可以查看对您有帮助的信息！

5. 如何翻译以下语句，请各位大侠帮忙！！

这些评论应该提交给相关的国家监管部门和中央银行，也可以发给位于瑞士巴塞尔市CH-4002 号的国际结算银行的巴塞尔银行监管委员会秘书处，截止日期是2002年9月30日。发送评论的邮箱地址为2 BCBS.capital@bis.org ，或通过传真+ 41 61 280 9100发送评论。关于本文的评论不会登在BIS的网站上。