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