1:
2:
3:
4:
5:

procedure TMainForm.Button1Click(Sender: TObject);
begin
  if Sender = Button1 then ...;
  if Sender = Button2 then ...;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

UNIT UnitData;

INTERFACE

USES
  SysUtils, Classes, ...;

TYPE
  TUpdateStatusbarEvent = Procedure of Object;
  ...

TYPE
  TDatMod = CLASS(TDataModule)
  ...                    

1:
2:
3:
4:
5:

  ...
    PRIVATE { Private-Deklarationen }
      Var
        fUpdateStatusbar : TUpdateStatusbarEvent;
  ...                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

  ...
    PUBLIC  { Public-Deklarationen  }

      Function  VerbindenDatenbank : Boolean;
      Function  VerbindenQueries   : Boolean;
  ...
      Property OnUpdateStatusbar : TUpdateStatusbarEvent Read fUpdateStatusbar Write fUpdateStatusbar;
  ...
  END;                    

1:
2:
3:
4:
5:

Procedure TDatMod.Query_MessungAfterScroll(DataSet: TDataSet);
begin
  ...
  If Assigned(fUpdateStatusbar) Then fUpdateStatusbar;
end;                    

1:
2:
3:
4:
5:
6:

Procedure TFormMain.StatusBarAktuell;
begin
  StatBarMain.Panels[1].Text := ...;
  StatBarMain.Panels[2].Text := ...;
  ...
end;                    

1:
2:
3:
4:
5:
6:

Procedure TFormMain.FormActivate(Sender: TObject);
begin
  ...
  DatMod.OnUpdateStatusbar := StatusBarAktuell;
  ...
end;                    

1:
2:
3:
4:

type
  TDingens = (dTop, dLeft, dBottom, dRight);

  TDingensEvent = procedure(Sender: TObject; Dingens: TDingens) of object;                    

1:
2:
3:
4:
5:

type
  TSomeForm = class(TForm)
  ...
  private
    procedure DoDingens(Sender: TObject; Dingens: TDingens);                    

1:

DoDingens(self, dTop);                    

1:

DoDingens(self, dBottom);                    

1:
2:
3:
4:

Procedure FormMain.Auswerten(Wert : Integer);
begin
  Wertspeicher := Wert;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

Procedure FormMain.Button1Click(Sender: TObject);
begin
  Auswerten(1);
end;

Procedure FormMain.Button2Click(Sender: TObject);
begin
  Auswerten(2);
end;                    

1:
2:
3:
4:
5:
6:
7:

Procedure FormMain.Auswerten(Wert : Integer);
begin
  Case Wert Of
   1 : Wertspeicher := 'Der obere Button wurde geklickt';
   2 : Wertspeicher := 'Der untere Button wurde geklickt';
  End;
end;                    

1:
2:
3:

          
OnClick = Button1Click
OnEnter = Button1Click                    

1:
2:
3:

          
OnClick = Button1Click
OnEnter = Button1Enter                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Procedure FormMain.Auswerten(Wert : Integer);
begin
  Wertspeicher := Wert;
end;
Procedure FormMain.Button1Click(Sender: TObject);
begin
  Auswerten(1);
end;
Procedure FormMain.Button2Click(Sender: TObject);
begin
  Auswerten(2);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

type
  TMyType = (mtOne, mtTwo, mtThree);  
  
  TMyClass = class
  private
    FMyProp: TMyType;
    FOnMyPropChanged: TNotifyEvent;
    procedure SetMyProp(const Value: TMyType);
  public
    property MyProp: TMyType read FMyProp write SetMyProp;
    property OnMyPropChanged: TMyPropChangedEvent read FOnMyPropChanged write FOnMyPropChanged;
  end;

...

procedure TMyClass.SetMyProp(const Value: TMyType);
begin
  if Value <> FMyProp then
    begin
      FMyProp := Value;
      if Assigned(FOnMyPropChanged) then
        FOnMyPropChanged(self);
    end;
end;