Создание объектов Опции

[Unconnected]

Привет всем.
Вопрос: как можно создать объект в выбранном месте формы? Я пробовал так:

var panel:TSPanel;
begin
  panel:=tsPanel.create(self);
  panel.Top:=100;
  panel.Left:=30;
  panel.Height:=50;
  panel.width:=50;
  panel.show;
end;

И ничего не появляется..

[Unconnected]

Сегодня начала появляться ошибка, при создании объектов. Код такой:

var buts:array[1..sm] of tsSpeedButton;
      panel1:tsPanel;

...

procedure TForm1.sSpeedButton3Click(Sender: TObject);
var i,i2:byte;
    x:TPoint;
begin
  if (panel1=nil) {and (clientsocket1.active)} then
  begin
    x.x:=2;
    x.Y:=2;
    sc:=0;
    panel1:=tsPanel.create(self);
    panel1.Top:=209;
    panel1.Left:=47;
    panel1.Height:=200;
    panel1.width:=300;
    panel1.borderstyle:=bsSingle;
    panel1.parent:=self;
    panel1.show;
    for i:=1 to 6 do
      begin
        for i2:=1 to 9 do
          begin
            buts[sc]:=TsSpeedbutton.Create(self);
            buts[sc].parent:=panel1;  //<===
            buts[sc].Left:=x.x;
            buts[sc].Top:=x.y;
            buts[sc].show;
            buts[sc].Width:=30;
            buts[sc].Height:=30;
            buts[sc].Images:=imagelist2;
            buts[sc].ImageIndex:=sc;
            buts[sc].onclick:=form1.butsf;
            buts[sc].Hint:=smiles[sc];  //добавил это
            buts[sc].ShowHint:=true;   //и это
            inc(sc);
            inc(x.x,32);
            if sc=48 then break;
          end;
        inc(x.y,32);
        x.x:=2;
      end;
  end
    else freeandnil(panel1);
end;

Текст ошибки - a control cannot have itself as its parent. Мол объект не может быть своим же родителем. Ошибка возникает на выделенной строке.
Причём до сегодня всё нормально отрабатывало..

Сообщение отредактировано: Unconnected - 21.06.2009 20:18