[ecfisa]

Hola.

Como te ha dicho Casimiro, lo mejor es declararlo en el DataModule. Para hacerlo en forma 'manual' desde determinada unidad sería:

Código Delphi [-]
type
  TForm1 = class(TForm)
  ...
  private
    procedure TuEventoBeforeInsert(DataSet: TDataSet);
  public
  end;
...
implementation

uses UnitDataModule;

procedure TForm1.TuEventoBeforeInsert(DataSet: TDataSet);
begin
  //...
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   DM.DataSet.BeforeInsert:= TuEventoBeforeInsert; // asignar el evento
end;
...

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DM.DataSet.BeforeInsert:= nil; // desasignar
end;

Saludos.