Проблемы с созданием объектов

TPlanet = class (TObject) 
public 
name: string; 
x,y,m,r,px,py,vx,vy,ax,ay: real; 
u,v,up,vp:integer; 
constructor Create(); 
end;

var 
solarsystem: array [0..8] of TPlanet;

begin 
for i := 0 to 8 do begin 
case i of 
0:begin 
solarsystem(i).Create; 
solarsystem(i).name:='Sun'; 
solarsystem(i).m:=333000.0; 
solarsystem(i).x:=0.0; 
solarsystem(i).y:=0.0; 
end; 
1:begin 
solarsystem(i).Create; 
solarsystem(i).name:='Mercury'; 
solarsystem(i).r:=0.39; 
solarsystem(i).m:=0.06; 
solarsystem(i).x:=solarsystem.r*10; 
solarsystem(i).y:=0.0; 
end; 
2:begin 
solarsystem(i).Create; 
solarsystem(i).name:='Venus'; 
solarsystem(i).r:=0.72; 
solarsystem(i).m:=0.82; 
solarsystem(i).x:=solarsystem.r*10; 
solarsystem(i).y:=0.0; 
end; 
//ну и так далее

function _AfterConstruction(const Instance: TObject): TObject; 
begin 
try 
Instance.AfterConstruction; //если быть совсем точным - конкретно на эту строку 
Result := Instance; 
{$IFDEF AUTOREFCOUNT} 
AtomicDecrement(Instance.FRefCount); 
{$ENDIF} 
except 
_BeforeDestruction(Instance, 1); 
raise; 
end; 
end;