Treeview_Change "rückgängig" machen, Selected-Eigenschaft

[Christian123]

So weit so gut, Aber leider klappt da irgendwas nicht so richtig.

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var nodenumber : integer;
var nodename : String;
var ChangeEvent: TNotifyEvent;
begin
ChangeEvent := TreeView1.OnChange; <--Fehler beim Kompilieren. Liste der parameter ist unterschiedlich

TreeView1.OnChange := nil;

Was fehlt?