как сделать рекцию на прокси объект

[leon2009sp]

Здравствуйте! не могу сообразить как сделать реакцию на проси объект

for j2 := 1 to 4 do begin
proxy_acorn:=TGLProxyObject(form1.proxy_ac1.AddNewChild(TGLProxyObject));
with proxy_acorn do begin
         MasterObject:=form1.GLDummyAc1;
         ProxyOptions:=[pooObjects];
         Direction:=form1.GLDummyAc1.Direction;
         Up:=form1.GLDummyAc1.Up;
         s2:=form1.GLDummyAc1.Scale.AsVector;
         f2:=(1);
         ScaleVector(s2, f2);
         Scale.AsVector:=s2;
         //turnangle:=j2*360;
         Position.SetPoint(form1.GLDummyAc1.Position.x-random(8), form1.GLDummyAc1.Position.Y,form1.GLDummyAc1.Position.z-random(8));
         //proxy_acorn.Name:=proxy_acorn.Name+'1';
         form1.GLHUDText2.Text:=inttostr(proxy_ac1.Count);

на клавишу

if iskeydown('2') then  proxy_acorn.Pitch(deltatime*1);

но объектов 10 и пр нажатие на 1 крутиться первый, на 2 второй и.т.д.
а у меня получилось, что только один крутиться

[leon2009sp]

пробовал так:

if iskeydown('2') then begin
 for i:=1 to proxy_acorn.Count -1 do 
 proxy_acorn[i] .Pitch(deltatime*2);
end;

так:

if iskeydown('2') then  proxy_acorn[2] .Pitch(deltatime*2);
if iskeydown('3') then  proxy_acorn[3] .Pitch(deltatime*2);

[leon2009sp]

передвигается только последний прокси т.е.:
proxy_acorn[4] ни 1 ни 2 а последний 4й, т.к. я их наплодил 4шт.

[leon2009sp]

если дать имена прокси объектам:

procedure TForm1.Mushroom2;
begin
for j2 := 1 to 4 do begin
proxy_acorn:=TGLProxyObject(form1.proxy_ac1.AddNewChild(TGLProxyObject));
with proxy_acorn do begin
         MasterObject:=form1.GLDummyAc1;
         ProxyOptions:=[pooObjects];
         Direction:=form1.GLDummyAc1.Direction;
         Up:=form1.GLDummyAc1.Up;
         s2:=form1.GLDummyAc1.Scale.AsVector;
         f2:=(1);
         ScaleVector(s2, f2);
         Scale.AsVector:=s2;
         //turnangle:=j2*360;
         Position.SetPoint(form1.GLDummyAc1.Position.x-random(8), form1.GLDummyAc1.Position.Y,form1.GLDummyAc1.Position.z-random(8));
         //form1.GLHUDText2.Text:=proxy_acorn.Name+'acront'+inttostr(j2);

         Name:='acront'+inttostr(j2);

         //memo1.Lines.Add(proxy_acorn.Name);
         memo1.Lines.Add(inttostr(proxy_acorn.Count));
end;end;end;

то здесь все отлично! acront1 acront2 acront3 acront4...
НО

procedure TForm1.GLCadencer1Progress(Sender: TObject; const deltaTime,
  newTime: Double);
  var mo1:integer;
begin
memo1.Lines.Add(proxy_acorn.Name);
end;

в каденсере выдает пустые строки... это можно поправить?

[leon2009sp]

почему я не могу ничего сделать со сферами в каденсере???

procedure TForm1.Mushroom2;
var
i, j : Integer;

begin
for i:=0 to 4 do {for j:=0 to 4} do begin
      newSphere:=(proxy_ac1.AddNewChild(TGLSphere) as TGLSphere);
      newSphere.Position.SetPoint(i*2, 0.5, 2*2);
      newSphere.Slices:=32;
      newSphere.Stacks:=32;
      newSphere.Name:='acron'+inttostr(i);
      memo1.Lines.Add(newSphere.Name);
end;

[leon2009sp]

испытание №4

if iskeydown('4') then  // memo1.lines.add(proxy_acorn.Name);
begin 
for i:=1 to newSphere.count do
newSphere.Children[4].Position.Y:=2;
end;

или

if iskeydown('2') then  // memo1.lines.add(proxy_acorn.Name);
begin 
for i:=1 to newSphere.count do
newSphere.Children[2].Position.Y:=2;
end;

ругается матом