движущиеся треугольники

[pocha]

Подскажите пожалуйста, как сделать затирание треугольников, чтобы когда появлялся второй треугольник исчезал первый, а когда третий исчезал второй. ДЕЛФИ!!

[BDA]

      Polygon([Point(x, y), Point(x + 10, y - 20), Point(x + 20, y)]);
      Delay(1000);
      Pen.Color := clBtnFace;
      Brush.Color := clBtnFace;
      rectangle(x - 5, y - 25, x + 25, y + 5);

[pocha]

спасибо огромное!