学习Delphi最好的教材。通过一个个简单而实用的实例

				1.在左边的对象观察器(Object Inspector)工具栏中翻到事件(Events)页
				找到键盘事件(OnKeyDown)
				2.双击它生成键盘事件，并添加代码，在窗体Form1的标题上显示按键的值
				procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
				  Shift: TShiftState);
				begin
				  Form1.Caption:=IntToStr(Key);
				end;
				运行后，试按空格键和左、上、右、下4个方向键，在窗体Form1的标题上就显示它们的值分别为32、37、38、39、40
				3.现在把键盘事件的代码改为如下：
				procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
				  Shift: TShiftState);
				begin
				  if Key=32 then Label1.Caption:='停止';
				  if Key=37 then Label1.Caption:='向左';
				  if Key=38 then Label1.Caption:='向上';
				  if Key=39 then Label1.Caption:='向右';
				  if Key=40 then Label1.Caption:='向下';
				end;