主要代码：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
case key of
'W','w' : face.Top:=face.Top-3;
'S','s' : face.Top:=face.Top+3;
'A','a' : face.Left:=face.Left-3;
'D','d' : face.Left:=face.Left+3;
end;
end;
程序介绍及源文件：http://www.luoshuizhibin.cn/762.html