Как выделить класс-перехватчик в отдельный модуль?

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
{ TEdit }
type
    TEdit = class(StdCtrls.TEdit)
    public
        procedure Click; override;
    end;
{ TForm1 }
  TForm1 = class(TForm)
      Edit1: TEdit;
      Edit2: TEdit;
      Edit3: TEdit;
      Memo1: TMemo;
  private
 
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
{$R *.lfm}
{ TForm1 }
procedure TEdit.Click;
begin
  inherited;
  Form1.Memo1.Lines.Add('Клик по некоторому окну редактирования');
end;
 
end.

unit MyEdit;
 
interface
uses StdCtrls;
 
type
  { TEdit }
  TEdit = class(StdCtrls.TEdit)
  public
    LogControl : TMemo; static; // одно поле для всех экземпляров, а не для каждого отдельное
  protected
    procedure Click; override;
  end;
 
implementation
 
{ TEdit }
 
procedure TEdit.Click;
begin
  inherited Click;
  if Assigned(LogControl) then
    LogControl.Lines.Add('Клик по окну редактирования: ' + Name);
end;  
 
end.

procedure TForm1.FormCreate(Sender: TObject);
begin
  TEdit.LogControl := Memo1; // ну и обращаемся, соответственно...
end;

unit EditEx;
 
{$mode objfpc}{$H+}
 
interface
 
uses
    Classes, SysUtils, StdCtrls;
 
{ TEdit }
type
    TEdit = class(StdCtrls.TEdit)
    public
        procedure Click; override; 
    end;
 
implementation
uses Unit1;
procedure TEdit.Click;
begin
  inherited;
 
  Form1.Memo1.Lines.Add('Клик по некоторому окну редактирования');
end;
end.  
 
+
 
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, EditEx;
type
{ TForm1 }
  TForm1 = class(TForm)
      Edit1: TEdit;
      Edit2: TEdit;
      Edit3: TEdit;
      Memo1: TMemo;
  private
 
  public
 
  end;
 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
 
end.