键值的检测？（我错在那里？？）(10分)

在dbgrid中：
procedure TForm6.DBGrid2KeyPress(Sender: TObject; var Key: Char);
begin
if (Key=#38)or(key=#40) then
begin
edit2.Text:=datamodule1.ADOTable2['bcdm'];
edit3.Text:=datamodule1.ADOTable2['bcmc'];
end;
end;
当我按下向上/向下方向键时为什么不响应的？

写在KeyDown中，上下键的键值可以查VK_DOWN VK_UP

关注

procedure TForm6.DBGrid2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=38)or(key=40) then
begin
edit2.Text:=datamodule1.ADOTable2['bcdm'];
edit3.Text:=datamodule1.ADOTable2['bcmc'];
end;
end;

-----------
KeyPress 就不知如何才行！