procedure TGroupCostForm.btnRoomCostClick(Sender: TObject);
begin
   RoomEndForm := TRoomEndForm.create(self);
    RoomEndForm.DinnerQuickRep.Preview;//出现在RoomEndForm窗口中未定义DinnerQuickRep错误,请问该如何定义该函数呢?
    RoomEndForm.show;
    MainForm.tmp := edit1.Text;