type
  P1 = procedure;
  P2 = procedure of object;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(SizeOf(P1)));     // 4
  ShowMessage(IntToStr(SizeOf(P2)));     // 8
end;

unit Edit_Util;

interface

uses StdCtrls, Graphics;

type
  { Класс предназначен для назначения обработчиков событий
    Экземпляры класса не создавать. Self не использовать }
  TEditEvents = class
  public
    procedure OnEditEnter(Sender: TObject);
    procedure OnEditExit(Sender: TObject);
  end;

implementation

procedure TEditEvents.OnEditEnter(Sender: TObject);
begin
  (Sender as TEdit).Color := clLime;
end;

procedure TEditEvents.OnEditExit(Sender: TObject);
begin
  (Sender as TEdit).Color := clWindow;
end;

end.

implementation

uses Edit_Util;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to ControlCount - 1 do
    if Controls[i] is TEdit then
      with Controls[i] as TEdit do
      begin
        OnEnter := TEditEvents(nil).OnEditEnter;
        OnExit := TEditEvents(nil).OnEditExit;
      end;
end;