Как я могу определить, является ли один TClass производным от другого?

Я пытаюсь сделать что-то вроде этого:

function CreateIfForm ( const nClass : TClass ) : TForm;
begin
  if not ( nClass is TFormClass ) then
    raise Exception.Create( 'Not a form class' );
  Result := ( nClass as TFormClass ).Create( Application );
end;

Выдает ошибку «Оператор не применим к этому типу операнда». Я использую Delphi 7.