tChart få fat i værdier og indsætte dem

Jeg skal for første gang til at bruge tcharts og kunne derfor godt bruge lidt hjælp. Jeg har siddet i flere dage nu og søgt efter information på nettet, men har ikke været i stand til at finde noget der kunne hjælpe mig videre. Jeg har lavet en tchart som skal vise procentdelen af en samlet omsætning.

Det vil sige at jeg skal have trukket nogle værdier ud og så lagt dem over i en tchart. Mit problem er at jeg ikke ved hvordan jeg lægger dem over i tchart og hvordan jeg får den til at vise procentvis størrelse. Et andet problem jeg har er at få taget de værdier ud af programmet som jeg skal bruge jeg ved hvor de er, men de vil ikke opdateres på den måde jeg vil have dem til. Her er et lille udkast af programmet.
Værdierne som jeg skal have fat ligger i
p->pricevoid __fastcall TGetBillForm::LogListDrawItem(TWinControl *Control,
      int Index, TRect &Rect, TOwnerDrawState State)
{
  LogList->Canvas->FillRect(Rect);
  Log* pr=(*log)[Index];
  drawItem(LogList,LogHeader,Rect,0,pr->time.to_str().c_str());
  drawItem(LogList,LogHeader,Rect,1,pr->foliono.foliono);
  drawItem(LogList,LogHeader,Rect,2,pr->roomno.roomno);
  drawItem(LogList,LogHeader,Rect,3,pr->text);
  int x,y=0;
  switch(lt) {
 
    case Protocol::logMinibar:{
      char buf[50];
      LogBill* p=(LogBill*)pr;
      drawItem(LogList,LogHeader,Rect,4,pay_rec::price_tostr(p->price).c_str());
      x = p->price;
      y = y + x;
      break;
    }
    case Protocol::logSonyGames:{
      char buf[50];
      LogBill* p=(LogBill*)pr;
      drawItem(LogList,LogHeader,Rect,4,pay_rec::price_tostr(p->price).c_str());
      break;
    }
    case Protocol::log2MGames:{
      char buf[50];
      LogBill* p=(LogBill*)pr;
      drawItem(LogList,LogHeader,Rect,4,pay_rec::price_tostr(p->price).c_str());
      break;
    }
    case Protocol::logInternet:{
      char buf[50];
      LogBill* p=(LogBill*)pr;
      drawItem(LogList,LogHeader,Rect,4,pay_rec::price_tostr(p->price).c_str());
      break;
    }
    case Protocol::logLaptop:{
      char buf[50];
      LogBill* p=(LogBill*)pr;
      drawItem(LogList,LogHeader,Rect,4,pay_rec::price_tostr(p->price).c_str());
      break;
    }
    case Protocol::logEmail:{
      char buf[50];
      LogBill* p=(LogBill*)pr;
      drawItem(LogList,LogHeader,Rect,4,pay_rec::price_tostr(p->price).c_str());
      break;
    }
    case Protocol::logChat:{
      char buf[50];
      LogBill* p=(LogBill*)pr;
      drawItem(LogList,LogHeader,Rect,4,pay_rec::price_tostr(p->price).c_str());
      break;
    }
    case Protocol::logVideo:{
      char buf[50];
      LogBill* p=(LogBill*)pr;
      drawItem(LogList,LogHeader,Rect,4,pay_rec::price_tostr(p->price).c_str());
      break;
    }
    case Protocol::logPayTv:{
      char buf[50];
      LogBill* p=(LogBill*)pr;
      drawItem(LogList,LogHeader,Rect,4,pay_rec::price_tostr(p->price).c_str());
      break;
    }
   
 
    case Protocol::logBill: {
      char buf[50];
      LogBill* p=(LogBill*)pr;
      drawItem(LogList,LogHeader,Rect,4,pay_rec::price_tostr(p->price).c_str());
      break;
    }
   
  }
}