quants

I have the following procedure:

procedure CheckAllChildren(node:ttreenode);
var
CurrentNode:TTreeNode;
SiblingNode:ttreenode;
NumberOfChildren:integer;

a:integer;

begin

if node.HasChildren then
begin
numberofchildren:=node.Count;
currentnode:= node.Getfirstchild;
currentnode.Stateindex:=ccheck;

siblingnode:=currentnode;
for a := 1 to numberofchildren-1 do
begin
Siblingnode:= siblingnode.getNextSibling;
siblingnode.StateIndex:=2;
//checkallchildren(siblingnode);
end
end
end;

What i want is for all the children of Node to have a StateIndex of 2.
But when i click on the StateImage (during runtime) it comes up with something like:

"Debugger exception notification dialog box

Project xxxx raised exception class yyyyy with message 'zzzzzz'."


However if I expand the Node before I click on the StateImage it works fine.
I want to be able to change the StateIndex of child nodes without having to see them first.
Is this possible? If so how?

Cheers
Q