Treeview Buttons (UP und Down) Frage

[Delphiturbo]

Hi

ich kann die Markierung bewegen nach oben und nach unten aber erscheint immer Eine Fehler Meldung :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button2.Enabled:=true;
if treeview1.Selected.AbsoluteIndex = Treeview1.Items.Count-2 then
begin
Button1.Enabled:=false;
TreeView1.SetFocus;
end;
If Assigned(Treeview1.selected) Then
begin
  Treeview1.Selected := Treeview1.Selected.GetNext;
  TreeView1.SetFocus;
  TreeView1.OnClick(Sender); // Simulate a Click on the selected one

end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Enabled:=true;
if treeview1.Selected.AbsoluteIndex = 1 then
begin
Button2.Enabled:=false;
TreeView1.SetFocus;
end;
If Assigned(Treeview1.selected) Then
begin
  Treeview1.Selected := Treeview1.Selected.Getprev;
  TreeView1.SetFocus;
  //TreeView1.OnClick(Sender); // Simulate a Click on the selected one

end;
end;

Ich möchte damit die Markierung bewegen und ein Klick dazu auf die Markierung simulieren
Es funktioniert aber mit Fehler !

[mkinzler]

Die Fehlermeldung sagt aus, dass auf ein nicht intantiiertes Objekt zugegriffen wird (0 = NIL)