procedure TForm1.Button1Click(Sender: TObject);

var

  i,j:Integer;

begin

  self.ListBox1.Items.Clear;

  i:=self.RzCheckTree1.Items.Count;

  for j:=0 to i-1 do

  begin

    if self.RzCheckTree1.Items[j].StateIndex=2 then//stateindex=2表示当前节点的checked:=true;

      self.ListBox1.Items.Add(self.RzCheckTree1.Items[j].Text);

  end;

end;