//创建 if not Assigned(F_ReportFillIn) then F_ReportFillIn:=TF_ReportFillIn.Create(self); F_ReportFillIn.Show; //释放 action:=caFree; F_ReportFillIn:=nil;