Объединить 2 процедуры в одну

Procedure WMGetSysCommand(var Message : TMessage); message WM_SYSCOMMAND;
procedure WMSysCommand(var Msg:TWMSysCommand); message WM_SYSCOMMAND;

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure Label1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
   procedure OnMyMenu;
   procedure OnMyMenu2;
  private
    { Private declarations }
procedure WMSysCommand(var Msg:TWMSysCommand; var Message:TMessage); message WM_SYSCOMMAND;
  public
    { Public declarations }
 end;
 
var
  Form1: TForm1;
 
implementation
{$R *.dfm}
 
const
  SC_MyMenuItem = WM_USER + 1;  //меню1
  SC_MyMenuItem2 = WM_USER + 2; //меню2
 
//СОЗДАТЬ ФОРМУ
procedure TForm1.FormCreate(Sender: TObject);
begin
  //добавляем новые пункты в системное меню приложения:
  AppendMenu(GetSystemMenu(Handle, FALSE), MF_SEPARATOR, 0, '');
  AppendMenu(GetSystemMenu(Handle, FALSE), MF_STRING,
    SC_MyMenuItem, 'Меню_1');
  AppendMenu(GetSystemMenu(Handle, FALSE), MF_STRING,
    SC_MyMenuItem2, 'Меню_2');
end;
 
//ВЫПОЛНИТЬ КОМАНДУ МЕНЮ 1
procedure TForm1.OnMyMenu;
Begin
  Label1.Font.Color:= clBlue;
  Label1.Caption:= 'Меню-1';
End;
 
//ВЫПОЛНИТЬ КОМАНДУ МЕНЮ 2
procedure TForm1.OnMyMenu2;
Begin
  Label1.Font.Color:= clRed;
  Label1.Caption:= 'Меню-2';
End;
 
//ОБРАБОТКА НАЖАТИЯ СИСТЕМНЫХ КНОПОК
procedure TForm1.WMSysCommand(var Msg:TWMSysCommand; var Message:TMessage);
begin
  // перехват события выбора новых пунктов меню:
  if Msg.CmdType = SC_MyMenuItem then
    OnMyMenu;
  if Msg.CmdType = SC_MyMenuItem2 then
    OnMyMenu2;
//ОБРАБОТКА НАЖАТИЯ КНОПОК НА ЗАГОЛОВКЕ ФОРМЫ
  case Message.wParam of
    SC_CLOSE: exit;
    SC_MINIMIZE: exit;
    SC_MAXIMIZE: exit;
  end;
  Inherited;
End;
 
procedure TForm1.Label1Click(Sender: TObject);
begin
  close
end;
end.