Некорректное отображение изображения на canvas

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
    StringGrid1->Canvas->Brush->Color = clYellow;
    StringGrid1->Canvas->Pen->Color = clRed;
    StringGrid1->Canvas->Pen->Width = 5;
    StringGrid1->Canvas->FillRect(Rect);
    if((ACol==0)&&(ARow==0))
    {
        StringGrid1->Canvas->Arc(15, 5, 50, 25, 50, 15, 0, 15);
        value = 1;
    }
    if((ACol==0)&&(ARow==1))
    {
        StringGrid1->Canvas->Chord(15, 30, 50, 50, 50, 40, 0, 40);
        value = 2;
    }
    if((ACol==0)&&(ARow==2))
    {
        StringGrid1->Canvas->Ellipse(15, 55, 50, 70);
        value = 3;
    }
    if((ACol==0)&&(ARow==3))
    {
        StringGrid1->Canvas->Pie(15, 85, 50, 100, 150, 50, 0, 80);
        value = 4;
    }
    if((ACol==1)&&(ARow==0))
    {
        TPoint points[5]; 
        points[0] = Point (80, 20);
        points[1] = Point (90, 5);
        points[2] = Point (100, 15);
        points[3] = Point (110, 5);
        points[4] = Point (120, 20);
        StringGrid1->Canvas->Polygon(points, 4);
        value = 5;
    }
    if((ACol==1)&&(ARow==1))
    {
        TPoint points[5]; 
        points[0] = Point (80, 45);
        points[1] = Point (90, 30);
        points[2] = Point (100, 40);
        points[3] = Point (110, 30);
        points[4] = Point (120, 45);
        StringGrid1->Canvas->Polyline(points, 4);
        value = 6;
    }
    if((ACol==1)&&(ARow==2))
    {
        StringGrid1->Canvas->Rectangle(80, 55, 120, 70);
        value = 7;
    }
    if((ACol==1)&&(ARow==3))
    {
        StringGrid1->Canvas->RoundRect(80, 80, 120, 95, 7, 7);
        value = 8;
    }
}