program menu;

uses
  Forms,
  menu1 in 'menu1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit menu1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs,
  StdCtrls, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Bearbeiten1: TMenuItem;
    ffnen1: TMenuItem;
    Sichern1: TMenuItem;
    Drucken1: TMenuItem;
    Ausschneiden1: TMenuItem;
    Einfgen1: TMenuItem;
    Lschen1: TMenuItem;
    Werkzeuge1: TMenuItem;
    Schrift1: TMenuItem;
    Courier1: TMenuItem;
    Helvetica1: TMenuItem;
    Schnitt1: TMenuItem;
    Fett1: TMenuItem;
    Fett2: TMenuItem;
    Test1: TMenuItem;
    Label1: TLabel;
    italic1: TMenuItem;
    procedure menuclick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.menuClick(Sender: TObject);
begin
label1.caption:=(sender as tcomponent).name;
label1.invalidate;
end;

end.