Pour savoir si un objet est de la class X, on peut utiliser l'operateur is
is
if vCtrl is TForm then ...