Программный код раздела Implementation программы Menu:
implementation

{$R *.DFM}
{комментарии пишутся в круглых скобках}
 // или можно использовать две наклонные черты, для записи 
 //комментариев
 {цвет формы выбирается с использованием диалоговой панели}
 procedure TForm1.VyborCwetaClick(Sender: TObject);
begin
 if ColorDialog1.Execute then
 Form1.Color:=ColorDialog1.Color;
end;
 // выбор цвета 
procedure TForm1.RedMenuClick(Sender: TObject);
begin
 Form1.Color:=clRed;
 YellowMenu.Enabled:=True;
 RedMenu.Enabled:=False;
 GreenMenu.Enabled:=False;
end;

procedure TForm1.YellowMenuClick(Sender: TObject);
begin
 Form1.Color:=clYellow;
 YellowMenu.Enabled:=False;
 GreenMenu.Enabled:=False ;
 GreenMenu.Enabled:=not GreenMenu.Enabled;
 RedMenu.Enabled:=True;
 RedMenu.Enabled:=not RedMenu.Enabled;
end;

procedure TForm1.GreenMenuClick(Sender: TObject);
begin
 Form1.Color:=clGreen;
 GreenMenu.Enabled:=False;
 YellowMenu.Enabled:=True;
end;
 //выбор цвета случайным образом
procedure TForm1.DatchikClick(Sender: TObject);
begin
 Randomize;
 Form1.Color:=Random(65535); 
end;
 {окончание работы}
procedure TForm1.VychodClick(Sender: TObject);
begin
 Close;
end;
 {вывод на экран дополнительных элементов меню}
procedure TForm1.DrugieClick(Sender: TObject);
begin
 Drugie.Checked:=not Drugie.Checked;
 case Drugie.Checked of
 True: begin
  LimeMenu.Visible :=True;
  BlueMenu.Visible:=True;
  SilverMenu.Visible:=True;
  end;
 False:begin
  LimeMenu.Visible:=False;
  BlueMenu.Visible:=False;
  SilverMenu.Visible:=False;
  end;
end;
end;

procedure TForm1.LimeMenuClick(Sender: TObject);
begin
 Form1.Color:=clLime;
end;

procedure TForm1.BlueMenuClick(Sender: TObject);
begin
 Form1.Color:=clBlue;
end;

procedure TForm1.SilverMenuClick(Sender: TObject);
begin
 Form1.Color:=clSilver;
end;

end.