PerformanceGraph verwenden

void __fastcall TForm1::Timer1Timer(TObject *Sender) 
{
    PerformanceGraph1->DataPoint(clRed, random(1000)); 
    PerformanceGraph1->Update();
}