Treeview setfocus error, when Treeview ausgeblended

[Delphiturbo]

Hallo

ich verwende diesen Code:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Treeview1.Selected := Treeview1.Selected.GetNext;
  TreeView1.SetFocus; // error wenn Treeview ausgeblendet wird
  TreeView1.OnClick(TreeView1);
end;

wenn ich z.B. meinen Treeview in eine Tabsheet und dann wechsele ich zu Tabsheet2
Dann erscheint eine Fehler Meldung, wenn ich auf das Button1 anklicke (sehe Anhang)

Was kann ich dagegen machen?