SangkarEmas : TSarang;

var 
  CucakRowo, Gelatik: TBurung;
   
...
CucakRowo := TBurung.Create('CucakRowo');
Gelatik := TBurung.Create('Gelatik');
SangkarEmas.Add(CucakRowo);
SangkarEmas.CucakRowo.Berkicau(); 
SangkarEmas.Add(Gelatik);
SangkarEmas.Gelatik.Berkicau();