Диаграмма

[MrGenerator]

Кто может помочь для этого кода сделать диаграмму, пробовал много видов кодов для Chart нечего не получается...

Простите забыл кинуть код=)

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
if (Edit1->Text.ToInt()>Edit2->Text.ToInt()) {ShowMessage("Error!");}
else
{
if (ListBox1->Items->Count==0) {ShowMessage("Error!");}
else
{
ListBox2->Clear();
TStringList* sl = new TStringList;

try
{
  sl->Assign( ListBox1->Items );
  int nMax = Edit1->Text.ToInt();
  for( int i = 0; i < nMax; i++ )
  {
    int nIndex = rand() % sl->Count;
    ListBox2->Items->Add( sl->Strings[ nIndex ] );


    sl->Delete( nIndex );
  }
}
__finally
{
  delete sl;
}
}}
}

не кто не поможет?????