Обращение к объекту по имени, взятому из String

[come-on]

evg_m вызов осталось показать, а то так и пихнет

[phomm]

evg_m в таком случае может потребоваться виртуальный конструктор, т.к. без него объект будет инстанцироваться конструктором оригинального ттреда, а потоки может требоваться кастомизировать. Чтобы пользоваться этим приёмом с загрузкой имени из строки, надо ещё вызвать RegisterClass при инициализации модуля. Пример тут http://programmersforum.ru/showthread.php?t=247508 или иная тема с этой процедуркой (ищем по форуму), или если есть на кибере, вот мой пример оттуда http://www.cyberforum.ru/delphi/thread433417.html

[evg_m]

Чтобы пользоваться этим приёмом с загрузкой имени из строки, надо ещё вызвать RegisterClass при инициализации модуля.

А в этом моем примере НЕТ ЗАГРУЗКИ имени из строки.
есть только указание какого конкретного типа из допустимых объект должен быть создан с ПОСЛЕДУЮЩЕЙ его настройкой.

По большому счету ТС нужен всего лишь один ОБЩИЙ предок для всех его многочисленных классов, обеспечивающий нужную ему общую настройку.

TMyBasisThread =class(TThread)
public
  procedure AfterConstruction; override;
end;

procedure TMyBasisThread.Afterconstruction; 
begin
  FreeOnTerminated:=true;
end;

и все потоки наследовать ОТ этого.
ЭТО другой и более правильный путь. (но уровень ТС заставляет сомневаться в разумности данного предложения).
Был предложен путь наиболее приближенный к исходному коду ТС и не требующий дополнительных действий в виде RegClass|GetClass.
К тому же не уверен что Thread ДОПУСКАЕТ использование оных.

TbaseModel должен быть наследником TPersistent
возможно не прямым а через цепочку TbaseModel-> TButton->..->Tcomponent-> Tpersistent

из приведенного вами примера.