rzchecktree选定的值,该怎么处理

rzchecktree选定的值
如图:

如何取得选定项的编号,如040401,040402,040403,后面的部门名称省略?

Delphi(Pascal) code

var
i:integer;
begin
  for i:=0 to Rzchecktree1.Items.Count-1 do begin
  if Rzchecktree1.Items[i].StateIndex=2 then//打勾
  begin
    showmessage(Rzchecktree1.Items[i].Text);
  end;
  end;
end;


这样会连部门名称也显示出来

------解决方案--------------------
构建树时 把编号赋值给treeview.items[i].data := PChar('040401');

读的时候showmessage(String(Rzchecktree1.Items[i].data));