Procedure als Event definieren? Wenn ja, wie?

[stho]

Zitat von jfheins:

Delphi-Quellcode:

type
  TDummyKlasse = Class(TObject)
    Procedure BeforeInsert(DataSet: TDataSet);
  End;

[...]
var temp = TDummyKlasse.Create();
command.BeforeInsert := temp.BeforeInsert;
// ggf. absichtliches Speicherleck

ich habs jetzt so gemacht:

Delphi-Quellcode:

type
  TDummeKlasse = Class(TObject)
    Procedure BeforeInsert(DataSet: TDataSet);
  End;

---

procedure TDummeKlasse.BeforeInsert(DataSet: TDataSet);
begin
  Showmessage(Command.SQL.Text);
end;

---

function GlobalInit : Boolean;
var
  X : TDummeKlasse;
begin
  result := false;
  X      := TDummeKlasse.create;
[...]
command.BeforeInsert := X.BeforeInsert;
[...]
end;

irgendwie springt er trotzdem nicht in das sch**ß event rein
Was mach ich noch alles falsch?!