array of TShape

[nobody_anfänger]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=1 to 47 do
  begin
    SKreis[i]:=TShape.Create(self);
    SKreis[i].SetBounds(i*2,i*2,30,30);
    SKreis[i].brush.color:=clred;
    SKreis[i].Visible:=True;
    repaint;
  end;
end;

es lässt sich jetzt compilieren, aber es ist trotz des repaints nichts zu sehen auf dem bildschirm. warum?