Events mit eigenen Variablen

[Helmi]

Hallo,

wie kann man ein Event mit eigenen Variablen in einer Komponente erzeugen?

Beispiel SpinEdit:

bei einem klick auf das Event "OnChange" kommt das raus:

Code:

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin

end;

bei einem Klick auf das Event "StartDrag" kommt das:

Code:

procedure TForm1.SpinEdit1StartDrag(Sender: TObject;
  var DragObject: TDragObject);
begin

end;

Nun würds mich interessieren, wie man in das Event eigene Variablen, etc. einbauen kann? (also wie in dem SpinEdit-Beispiel "var DragObject: TDragObject")

mfg
Helmi