根据数据库里记录的窗口名打开窗口。(100分)

根据从数据库中检索出来的窗口名，来打找窗口。试了好多方法，都不行。
主要是因为数据库里查出来的窗口名是string的，如果才能打开这个窗口？这个窗口在程序里是已经存在的。可以动态创建。

唉

procedure TForm1.Button1Click(Sender: TObject);
var
fc: TPersistentClass;
fm: TForm;
begin
fc := GetClass('Form2');
fm := TFormClass(fc).Create(Self);
try
fm.ShowModal;
finally
fm.Free;
fm := nil;
end;
end;
//fc為數據庫中記錄的窗口Form2的類
在Form2中注冊類:
initialization
RegisterClassAlias(TForm2, 'Form2')
finalization
UnRegisterClass(TForm2);
end.