1:

TreeView.Items[irgendeineZeile].StatusIndex := ?					

1:
2:
3:
4:
5:
6:

while not cdsTippliste.eof do
begin
  IntVar := cdsTippliste.FieldByName('id').asInteger;
  TreeView1.Items.AddChildObject(nc, cdsTippliste.FieldByName('titel').asString, Pointer(IntVar));
  cdsTippliste.Next;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.ComboBox1Select(Sender: TObject);
var
  IntVar: Integer;
begin
  intVar := Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
  label1.Caption := ComboBox1.Text;
  label2.Caption := inttostr(intVar);
end;					

1:

ShowMessage(IntToStr(Integer(TreeView1.Selected.Data)));