array of TShape

[nobody_anfänger]

begin
for i:=1 to 47 do
begin
SKreis[i].visible:=true;
SKreis[i].width:=30;
Skreis[i].Height:=30;
SKreis[i].brush.color:=clred;
SKreis[i].Top:=i;
SKreis[i].left:=i;
end;
end;

das problem ist jetzt nur, dass wenn ich mein prog ausführe, das prog abstürzt, sobald ich die prozedur starte.