文字列で表現したクラス名から、そのクラスを生成する方法はどうすればよろしいでしょうか？
たとえば、
var
　s: string;
　x: ITest;
begin
　s := 'TMyList';
　//文字列"TMyList"があらわすTMyListクラスが ITestインターフェースを持っているか確認
　//if (s) is ITest then begin
　　//文字列"TMyList"から、TMyListクラスのインスタンスを作成
　　//x := (s).create;
　　//いろいろ
　　//x.Test = 'aa';
　　//x.Run;
　　//x.Free;
　//end;
end;
んなことをやりたいのですが、どうすればいいでしょうか？
if文を沢山書けば出来るのですが、沢山あるためそれは避けたいです。
環境 Delphi6Professional