GlobalVarx:=1; Fx:=Formx.Create(Application); Fx.Varx:=1; ......................... TFormx.FormCreate(Sender: TObject); begin Varx:=GlobalVarx; .........................