POO

Olá pessoal.

Como meu código está recursivo, vou colocar apenas uma parte e depois minha dúvida:
var
tClasse : TClass;
begin
tClasse := TWinControl(Screen.ActiveForm.Components[iContador]).ClassType;
ShowMessage(tClasse(Screen.ActiveForm.Components[iContador]).Name);

Tem como fazer algo nesse sentido?