1、不要用OnKeyDown事件
OnKeyDown事件只管判断哪个键按下，
无法区分字母键的大小写
2、建议用OnKeyPress事件
代码如下：
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
with Memo1.Lines do
Text:=Text+Key;
end;
不好意思
上面的代码应该加一句
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if ActiveControl<>Memo1 then
with Memo1.Lines do
Text:=Text+Key;end;
end;
