tworzenie button'a dynamicznie

mam problem

tworzę button dynamicznie ale on nie chce mi się pokazać

oto kod

var
p : tbutton;
begin
p := tbutton.create(self);
p.Parent := nil;
p.width := 10;
p.height := 10;
p.left := 10;
p.top := 10;
p.caption := 'o';
p.Visible := true;
p.TabOrder := 0;
end;

Witam

Zamiast :
p.Parent := nil;

wstaw :
p.Parent := self;

The end

och wielkie dzięki, nawet nie wiesz ale przyczyniłeś się w tworzeniu języka skryptowego :]

&gtp := tbutton.create(self);
&gtp.Parent := self;
&gt
Wydaje mi sie, ze mozna to skrocic do:

p:=TButton.CreateParented(self.handle);

ale nie jestem pewien :))

--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1