Bir bileşenden kaç tane oluşturacağımız önceden belli değilse böyle bir kullanıma ihtiyacımız olabilir. Gerçi dinamik array olarakta tanımlayıp bu işi daha güvenli bir yönden çözebiliriz ama maksat çeşitliliği artırmak olsun. Her hangi bir tanımlama yapmadan çalışma zamanında bir TEdit nesnesi oluşturup bunu form üzerinde göstereceğiz. procedure TForm1.Button1Click(Sender: TObject); begin with TEdit.Create(self) do begin left := 168; top := 59; height := 21; Width := 121; Parent :=Self; name := 'EditYeni'; end ; end ; procedure TForm1.Button2Click(Sender: TObject); begin //text özelliğini değiştir (FindComponent('EditYeni') as TEdit).Text := 'Ehu ehu ehu...'; end ; procedure TForm1.Button3Click(Sender: TObject); begin //editi yok et (FindComponent('EditYeni') as TEdit).Free; end ; güle güle kullanın....
"O halde kendini yargılayacaksın," dedi kral. "En zoru da budur. Kendini yargılamak başkasını yargılamaya benzemez. Eğer kendini yargılamayı başarabilirsen, o zaman gerçek bilgeliğe ulaşmışsın demektir." Küçük Prens - Bölüm 10