急！！怎样编程实现快捷键序数输出？？？(200分)

请问专家，怎样实现这样一个程序：<br>&nbsp; &nbsp;我设定一个快捷键如F5，每一次按下都能向当前的文本框输出一个依次递增的数字。<br>例如：我在文本文档编辑时，能通过快捷键输入数据。第一次输入“1”，第二次输入“2”，第3次输入“3”。。。<br>我用键盘模拟输入函数keybd_event（），可是不管用。请高手指点。最好能给出源程序实例。200分送上[]

inc函数

设置<br>form1.keypreview= true;<br><br>procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;<br>&nbsp; Shift: TShiftState);<br>begin<br>&nbsp; if key = vk_f5 then<br>&nbsp; begin<br>&nbsp; &nbsp; memo1.Lines.add(inttostr(anum));<br>&nbsp; &nbsp; inc(anum);<br>&nbsp; end;<br>end;<br>应该可以吧。