Dynamiczne tworzenie formy

Mam taki maly problem: chialem dynamicznie wykreowac forme. I mam nastepujacy problem: tworze sobie w varze zmienna dajmy na to XForm:TForm oraz XButton:Tbutton; W OnForm1.Create wpisuje:

Xform := TForm.Create(self);
XForm.Parent := self;
xform.borderstyle := bsDialog;
xform.FormStyle := fsNormal;
xform.visible := TRUE;

xbut := TButton.Create(Xform);
xbut.parent := XForm;
xform.visible := true;

Po skompilowaniu wydaje sie, ze wszystko dziala, udaje mi sie stworzyc forme. Jednak gdy chce zaznaczyc jeszcze raz Form1 pojawia mi sie blad: Cannot focus disabled or invisible window. Czy ktos moze mi powiedziec co robie zle lub o czym zapomnialem, albo ma jakis artykul na temat tworzenia form/komponentow?

Mogę się mylić , bo nie mam jeszcze wielkiego doświadczenia , ale wydaje mi się ,że opuściłeś właściwość name i po prostu progs nie wie do czego ma się odwoływac.

Pochwalony!
Jak na moje krzywe dups... yyyy nic :) powinieneś umieścić to nie w OnCreate ale w OnShow...