I use this in the forms.  It's Works fine.

function TfrmAcceso.frmAccesoKeyPress(Sender: TObject; Key: Char; ShiftKey, CtrlKey, AltKey: Boolean): Boolean;
begin
  if (not (ShiftKey or CtrlKey or AltKey)) and (Key=#13) then
  begin
     NextControl(true);
     Result:=False;
  end
  else
   Result:=True;
end;

if someone else needs it is free to use.

If you want to tbutton works then use the correction:

function TfrmAcceso.frmAccesoKeyPress(Sender: TObject; Key: Char; ShiftKey, CtrlKey, AltKey: Boolean): Boolean;
begin
  if (not (ShiftKey or CtrlKey or AltKey)) and (Key=#13) and (not (ActiveControl is tbuttoncontrol)) then
  begin
     NextControl(True);
     Result:=False;
  end
  else
     Result:=True;
end;


Amaury López wrote:

I use this in the forms.  It's Works fine.

function TfrmAcceso.frmAccesoKeyPress(Sender: TObject; Key: Char; ShiftKey, CtrlKey, AltKey: Boolean): Boolean;
begin
  if (not (ShiftKey or CtrlKey or AltKey)) and (Key=#13) then
  begin
     NextControl(true);
     Result:=False;
  end
  else
   Result:=True;
end;

if someone else needs it is free to use.