检测某个按弹起怎么表示？

Question

比如如果检测到按键A按下后又弹起，则showmessage('A弹起')
必须是弹起，因为可能一直按住A键几秒钟直到松开的那一刻才执行代码。
另外再顺便问下上下左右四个方向键怎么表示。谢谢。

Answer 1

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case key of
    37:showmessage('左方向键被按下');
    38:showmessage('上方向键被按下');
    39:showmessage('右方向键被按下');
    40:showmessage('下方向键被按下');
  end;
end;procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=65 then showmessage('"A键弹起"');
end;

Answer 2

Form1.KeyPreview:=True;Form1的onKeyUp事件
if key=65 then showmessage('"A键弹起"');

Answer 3

不好意思各位，我发现如果窗体上有个webbrowser 就失效了 怎么写webbrowser的keyup事件？