procedure TfrmProglbl.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    edt2.SetFocus;
  end;
end;

• New Application
• 在Form1上放兩個TEdit(Edit1, Edit2)

• 在Edit1的KeyPress事件打上：
  procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
  begin
    if Key = #13 then
      Edit2.SetFocus;
  end;
  

• 將Form的屬性KeyPreview設為True
• 必須uses dbctrls, dbgrids;

• 在Form的KeyPress事件打上：
  procedure TCCLForm.FormKeyPress(Sender: TObject; var Key: Char);
  begin//按Enter跳下一個物件
    if (key = #13) and (Not(ActiveControl is TDBMemo)) and
       (Not(ActiveControl is TDBGrid)) then
    begin
      key := #0;
      PerForm(WM_NEXTDLGCTL,0,0);
    end;
  end;