[Nekromant Set'а]

Есть следующая задача:
Есть классы Tb1, Tb2 и Tb3...
Есть строка, в которой храниться имя класса объекта, который надо создать... Допустим значение строки:

s := 'Tb1';

Как же создать объект с именем класса Tb1 ???