[deltas]

Не совсем понял какую анимацию вы хотите получить... но вот пример рисования треугольника-

Код:

begin 
Canvas.Brush.Color := clTeal; 
Canvas.Polygon([Point(30, 10), 
Point(130, 30), Point(240, 120)]); 
end;