var frmclss: TFormClass; f: TForm; begin frmclss := TFormClass(FindClass('SomeString')); f:= frmclss.Create(Self); f.Show; end;
Я не понял Вашего вопроса, но всё же Вам на него отвечу!