以下两个事件里的内容就FORM名字不同，能否把他们以FORM名字为变量，用一个函数或过程来处理？请各位大侠帮忙，谢谢！！！(0分)

以下两个事件里的内容就FORM名字不同，能否把他们以FORM名字为变量，用一个函数或过程来处理？请各位大侠帮忙，谢谢！！！

procedure TMainForm1.FixedAssetsClickClick(Sender: TObject);
begin
FixedAssetsForm:=TFixedAssetsForm.Create(Application);
FixedAssetsForm.ShowModal ;
end;

procedure TMainForm1.ClientInfoClickClick(Sender: TObject);
begin
ClientInfoForm:=TClientInfoForm.Create(Application);
ClientInfoForm.ShowModal ;
end;

procedure ShowOperForm(AFormClass: TFormClass);
var
f: TForm;
begin
f := AFormClass.Create(Application);
try
f.ShowModal;
showmessage(f.Name);
finally
f.Free;
end;
end;

搞定，谢了！！！（问问题时不知道是难或易，没选分，这次没法给分你了，真不好意思！），我对Delphi的类，结构等不怎么清楚，sunyz_520y大侠有什么好书推荐吗？