,, hvordan der kan skabes en kontrol, når blot på grund af den classname af kontrol.,, første klasse skal registreres, og dette er sket i initialization afsnit.,,, registerclasses ([tedit]);,,,, så finder vi den klasse objekt (klasser er genstande for) for kontrol og sikre, at det faktisk er en tcontrol.,,, cclass: = findclass ('tedit), hævder (cclass < > - 0), hævder (cclass. inheritsfrom (tcontrol),,,, vi kaster den klasse, som en tcontrolclass (for at kalde den korrekte konstruktøren) og skabe.,,, c = tcontrol (tcontrolclass (cclass). skabe (selvstændige),,,,, at den fulde kode er nedenfor.,,, funktion createcontrolbyclassname (denne aclassname: string,,, aowner: tcomponent): tcontrol;,, var.,, cclass: tclass;, begynder,,, cclass: = findclass (aclassname), hævder (cclass < > - 0), hævder (cclass. inheritsfrom (tcontrol), resultat: = tcontrol (tcontrolclass (cclass). skabe (aowner));,,,,,, initialization,, registerclasses ([tedit]);,,,.,,