Не могу динамически создать Shape

[ChEaTeR-abc]

Нужно при запуске программы создать Shape.Делаю это так:

procedure TForm1.FormCreate(Sender: TObject);
var
  Shape:TShape;
  X,Y:integer;
begin
  X:=0;
  Y:=0;
  repeat
    begin
      repeat
        begin
          Shape.Create(Self);
          Shape.Name:='Shape'+IntToStr(X)+'_'+IntToStr(Y);
          Shape.Width:=20;
          Shape.Height:=20;
          Shape.Left:=X;
          Shape.Top:=Y;
          Y:=Y+20;
        end;
      until Y>400;
      X:=X+20;
    end;
  until X>400
end;

Но на строке Shape.Create(Self); выдает ошибку Stack оverflow.Не могу понять в чем проблема, смотрел разные исходники - везде объекты создают так.Объясните, пожалуйста, в чем ошибка и как исправить?

Добавил:
Мля, нашел в чем проблема! Надо было писать

Shape:=TShape.Create(Self);

Теперь другая проблема: Shape'ы не создаются

[_-Re@l-_]

Добавь ещё:

Shape.Parent:=Form1;

Ну или того пэрэнта который тебе нужен.

[ChEaTeR-abc]

Спасибо!Все работает