关于窗体显示的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  lCaption : String;
  Frm : TForm;
begin
  lCaption :=TButton(Sender).Caption;
  Frm := TFormClass(FindClass(lCaption)).Create(Self);end;end.
想达到的功能：点击不同按钮时，显示不同窗体
当点击BUTTON1的时候，出现下列错误信息：
“Class button1 not found”
请问 ：如何解决？

Answer 1

用动态创建不是很好吗？
procedure TForm1.Button1Click(Sender: TObject);
var
  cap: String;
  Frm: TForm;
begin
  Cap := Button1.Caption;
  Try
    Frm := TForm.Create(nil);
    Frm.Caption := Cap;
    frm.Color := clblue;
    Frm.Position := poScreenCenter;
    Frm.ShowModal;
  Finally
    FreeAndNil(Frm);
  End;
end;
----------------------------------------------------------------
             花自飘零水自流，一种相思，两处闲愁。
               此情无计可消除，才下眉头，又上心头。
----------------------------------------------------------------