delphi enter键相等于确定键登录 这样写为什么不行啊该如何解决

delphi enter键相等于确定键登录 这样写为什么不行啊
procedure Tdlfrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
  Button1Click(button1);
  end;
end;

[解决办法]
你设置窗体的KeyPreview属性为True了吗
[解决办法]
如果form没有处在活动状态，那么就要设置KeyPreview=true