关于基类窗体(50分)

我的窗体多从的一基类的窗体继承来
我定义一个属性，现在要求属性返回一个直
public
str:string;
protected
{ protected declarations }
procedure ShowForm(AForm: TFormClass);
/////
procedure TFbaseForm.ShowForm(AForm: TFormClass);
begin
with AForm.Create(Application)do
begin
try
str:='safd';
ShowModal;
finally
Free;
end;
end;
end;
现在我从基窗体TFbaseForm继承一个TFBaseForm1
if str='safd' then
showmessage('成功')
我要怎么做才来把str='safd'传到TFbaseForm1中来，

AForm里面添加一个属性或public变量str1，或者添加一个public方法InitData(str1:string)
用来设置AForm1的str1，然后：
with AForm.Create(Application)do
begin
try
AForm.str1:='safd';
ShowModal;
str:=AForm1.str1;
finally
Free;
end;
end;