Обработчик событий для компонента (TLabel, TButton)

TmpLabel.OnClick := @ClickEvent;

type
  TEvent = procedure(Sender: TObject) of object;
type
  TEventClass = class(TObject)
    private
      SimpleObject: TObject;
      FEvent: TEvent;
      procedure LabelEvent(Sender:TObject);
    public
      IsResized: boolean;
      constructor Create(SimpLabel: TObject);
      destructor Destroy; override;
      property Event: TEvent read FEvent write FEvent;
  end;
 
implementation
   constructor TEventClass.Create(SimpLabel: TObject);
   begin
     if SimpLabel is TLabel then
     begin
       SimpleObject := SimpLabel as TLabel;
       (SimpleObject as TLabel).OnClick := @LabelEvent;
     end;
   end;
 
   destructor TEventClass.Destroy;
   begin
     inherited;
   end;
 
   procedure TEventClass.LabelEvent(Sender: TObject);
   var
     size: integer;
   begin
     size := (SimpleObject as TLabel).Font.Size;
     if (IsResized) then
        (SimpleObject as TLabel).Font.Size := size div 2
     else
        (SimpleObject as TLabel).Font.Size := size * 2;
     (SimpleObject as TLabel).Update;
   end;
 
end.

(SimpleObject as TLabel).Font.Size := size div 2

type
  { TEventClass }
  TEventClass = class
  public
    class procedure myLabelOnClick(Sender : TObject);
  end;
 
implementation
 
{ TEventClass }
class procedure TEventClass.myLabelOnClick(Sender: TObject);
var
  size : Integer;
begin
  with Sender as TLabel do // Работа - через Sender, он не просто так передается...
  begin
    size := Font.Size;
    if Tag = 1 then Font.Size := size div 2
    else Font.Size := size * 2;
 
    Update;
    Tag := 1 - Tag; // В Tag-е будем хранить признак "изменялся/не изменялся"
  end;
end;

  L := TLabel.Create(MyForm);
  // ... тут назначаются остальные свойства, родитель, положение на форме, Font.Size ...
 
  with TEventClass do 
    L.OnClick := @myLabelOnClick; // Вот так