Você precisa acessar o Pai do componente primeiramente acompanhado dos componentes dentro dele para ter acesso. Fiz um exemplo para ter acesso ao TLabelTLabel
.
Espero que ajude.
var
oLabel: TObject
begin
oLabel := FindComponent('nome do TRectangle').FindComponent('nome do TLabel');
if Assigned(oLabel) then
TLabel(oLabel).TextSettings.FontColor := TAlphaColorRec.White;
end;
Esse exemplo funcionará se caso o TLabel
se encontrar dentro do componente TRectangle
, agora se por exemplo existir dentro de um TRectagle
um componente TToolBar
e então dentro do TToolBar
existir o TLabel
. Teria que somente acrescentar um FindComponent() buscando o TToolBar
.
oLabel := FindComponent('nome do TRectangle').FindComponent('nome do TToolBar').FindComponent('nome do TLabel');