обратиться к компоненту Memo, на активной вкладке PageControl

[ImmortalAlexSan]

А можно привести пример создания наследника? В интернете не нашел ничего.

[evg_m]

кроме components[..] есть еще и Controls[...] который перечисляет наследников TControl(визуальные компоненты) которые расположены на данном Визуальном (в нашем случае Pagecontrol.ActivePAge =TTabSheet )

for j:=0 to pagecontrol.activepage.contrilcount-1
if pagecontrol.activepage.contrils[j].inherited(Tmemo) then 
 showmessage( TMemo(self.pagecontrol.activepage.contrils[j]).text );
end;