如何用字符串来代替窗体名？ ( 积分: 100 )

unit Unit1;
interface
uses
Classes, Forms, dxBar;
type
TMainForm = class(TForm)
btn: Tbutton;
procedure btnClick(Sender: TObject);
var
MainForm: TMainForm;
implementation
{$R *.DFM}
uses Unit2;
procedure TMainForm.btnClick(Sender: TObject);
var
ss: string;
myform:Tform;
begin
ss:='xxForm';
问题在这里了，我如何去ss这个字符串变量去取代xxForm并Show出来呢？
end;
end.

unit Unit2;
interface
uses Classes, Forms;
type
TxxForm = class(TForm)
end;
implementation
{$R *.DFM}
uses SysUtils, Unit1;

end.

http://www.delphibbs.com/keylife/iblog_show.asp?xid=343

procedure TMainForm.btnClick(Sender: TObject);
var
ss: string;
myform:Tform;
i:integer;
begin
ss:='xxForm';
问题在这里了，我如何去ss这个字符串变量去取代xxForm并Show出来呢？
for i := 0 to Screen.FormCount-1 do
begin
if Uppercase(Screen.Forms.Name)=uppercase(ss) then Screen.Forms.Show ;
end;
end;

Screen需要在工程中自动Create了的窗体

Screen需要在工程中自动Create了的窗体

ysai,你提供的答案不错，谢谢。如果是你自答的，给你100分了