Непонятки с рисованием на форме

[ROD]

Есть у меня код, рисует на форме "человечка"

void player()
        {
        for(int p=0;p<20;p++)
                {
                for(int q=0;q<10;q++)
                        {
                        if(pole[p][q]==2)
                                {
                                x=p*40;
                                y=q*40;
                                }
                        }
                }

        Canvas->Pen->Color= clRed;
        Canvas->Ellipse(x+16,y+4,x+24,y+12);

        Canvas->MoveTo(x+20,y+12);
        Canvas->LineTo(x+12,y+25);
        Canvas->MoveTo(x+20,y+12);
        Canvas->LineTo(x+20,y+25);
        Canvas->LineTo(x+12,y+40);

        Canvas->MoveTo(x+22,y+12);
        Canvas->LineTo(x+28,y+25);
        Canvas->MoveTo(x+22,y+12);
        Canvas->LineTo(x+22,y+25);
        Canvas->LineTo(x+28,y+40);

        }

Я не могу понять, почему человечек заливает зеленым цветом всю клетку в которой находится (под клеткой подразумевается пространство ограниченное прямоугольником x, y, x+40, y+40 (человечек отрисовывается самым последним, но для меня загадка почему он закрашивает пространство рядом с линиями).

Зарание спасибо.

[ROD]

Спасибо, если кто-то начал искать ошибку, я уже сам нашел. (не ищите, ее тут нет, она в другом месте).

Там у меня просто были декоративные элементы, которые отрисовывались если в клетке нет припятствий (т.е. она пустая, а человечек не является пустой клеткой).

Тему можно удалять.

[MaTBeu]

Лучше использовать Polygon.