Form1にTreeView1とImageList1を貼り付け、ImageListには１６ｘ１６のBitmapが２枚登録してあります。
下手なコードで申し訳ありませんが、
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
MyTreeNode1: TTreeNode;
begin
for i:=0 to 36 do
begin
with TreeView1.Items do
begin
MyTreeNode1 := Add(nil, 'TreeNode：' +IntToStr(i));
if i=5 then MyTreeNode1.ImageIndex := 1;
end;
end;
end;
とすると、６番目のアイテムだけ、イメージが１になります。
ところが、コンパイルして６行目を選択するとイメージが０に反転（？）してしまいます。
TreeViewはNodeの親子関係があったりとか、素人的に困惑しています。
どちら様か、ご教授ください。
設定すべきイメージのインデックスは３つある。
とりあえずTreeViewをフォームに一つ貼り付けて、ダブルクリックして
ノードの追加画面を眺めてみましょう。
すぐに言ってることが分かると思います。
選択時インデックス、ですね？
コード上では、MyTreeNode1.SelectedIndexに設定することでうまくいきました。
どうも、ありがとうございます。