Icons in Treeview

[Gehstock]

Delphi-Quellcode:

Procedure OpenDB;
var
i: integer;
node:Tnode;
tnodes:TTreenodes
begin
tnodes := frmmain.TreeView1.Items;
frmmain.ADOConnection1.GetTableNames(st,False);
//frmmain.TreeView1.Items.Clear;
for i:=0 to st.Count - 1 do begin
while frmmain.ADOQuery1.Active do
        frmmain.ADOQuery1.Close;
        frmmain.ADOQuery1.SQL.Text := 'select * from '+st.Strings[i];
        frmmain.ADOQuery1.Open;
        node := tnodes.Add(nil,st.Strings[i]+' ('+inttostr(frmmain.ADOQuery1.RecordCount)+')');
        SetNodeBoldState(node, True);
        node.ImageIndex:=0;
        node.StateIndex:=0;
        While Not frmmain.ADOQuery1.Eof do
         begin
          tnodes.AddChild(node, frmmain.ADOQuery1.FieldByName('Feld1').AsString);
          //node.ImageIndex:=StrtoInt(frmmain.ADOQuery1.FieldValues['Feld3'])+3;
          //node.StateIndex:=StrtoInt(frmmain.ADOQuery1.FieldValues['Feld3'])+3;
          frmmain.ADOQuery1.Next;
  end;
    end;
    st.Free;
end;

wie bekomme ich unterschiedliche Icons im Treeview und zwar in die Untereinträge so wie im Anhang (Markierung)