// ...

  TXXXForm = class(TForm)
    ActLst: TActionList;
    ActHotKey1: TAction;
    ActHotKey2: TAction;
    // ...
    // 注意位置,这两个热键过程不能放在private或public等域中!
    procedure OnHotKey1(Sender: TObject);
    procedure OnHotKey2(Sender: TObject);
  private
    // ...
  public
    // ...
  end;

// ...

implementation

procedure TXXXForm.OnHotKey1(Sender: TObject);
begin
  //ShowMessage('HotKey1');
end;

procedure TXXXForm.OnHotKey2(Sender: TObject);
begin
  //ShowMessage('HotKey2');
end;