Click auf Treeview simulieren Fehler ?

[Delphiturbo]

Hallo,

wenn ich ein Klick simuliere, erscheint eine Fehlermeldung ! :

Delphi-Quellcode:

var
  ilbItemIndex: Integer;
begin
  ilbItemIndex := Listbox1.ItemIndex; // ausgewähltes Item ermittel
  if ilbItemIndex <> -1 then 
  begin
    TreeView1.Items.Item[ilbItemIndex].Selected := True; // Item im TreeView markieren
    TreeView1.SetFocus; 
    TreeView1.OnClick(TreeView1); // error, aber D sagt nicht warum


  end;
end;