Spontan würde ich auch versuchen, eine
TFormClass zu übergeben und einfach mit dem is-Operator dagegen zu prüfen. In der Prüf-
Unit müssen dann aber auch alle in Frage kommenden Klassen bekannt sein, d.h. die Uses-Klausel kann u.U. recht lang werden.