procedure Tmanage.yuanClick(Sender: TObject);begin yuan:=Tyuancailiaochurukujilu.create(application); yuan.showModal; yuan.Clear ; yuan.Free;end;这段代码由问题吗