showMessage (inttostr(self.ComponentCount)); test := TComponent(self.Components1); ShowMessage (test.Name);