پیام خطایTreeviewهنگام گرفتن مقدار Parent

[solook]

با سلام ..

من با کد زیر مقدار text سرشاخه والد از Treeview رو میگیرم :




procedure TForm1.Treeview1Change(Sender: TObject; Node: TTreeNode);
var
S:=String;
begin
S:= Treeview1.Selected.Parent.Text;اما وقتی سرشاخه اصلی (پدربرزگ) را باز میکنم یا روش کلیک میکنم این پیام رو میده:


Assess violation at address 0052300b in module 'project1.exe'. Read of address 00000008.


وقتی سرشاخه اصلی باز شد کارشو به خوبی انجام میده..
چیکار کنم این پیام رو نده ..

فکر کنم اگه دستوری بنوسیم تنها وقتی اون کارو انجام بده که شاخه اصلی باز شده باشه دیگه این پیام رو نمیده..
حالا چطوری این شرط رو بگذارم؟

[ghabil]

[code]
if Assigned(Treeview.Selected.Parent) then ....
[code]