array of TShape

[nobody_anfänger]

jetzt hab ich das problem, das der fehler not enought parapeters angezeigt wird.

Delphi-Quellcode:

procedure TForm1.FormClick(Sender: TObject);
var i:integer;
begin
  for i:=1 to 47 do
  begin
    SKreis[i]:= TShape.Create;
    SKreis[i].SetBounds(i,i,30,30);
    SKreis[i].brush.color:=clred;
  end;
end;