procedure TForm1.SimpleAnimationClick(Sender: TObject);
var
 Count: Integer;
 Pause: Real;
begin
{ Rysujemy statyczny prostokt }
 Form1.Canvas.Pen.Mode := pmCopy;
 Form1.Canvas.Pen.Color := clRed;
 Form1.Canvas.PolyLine([point(50,10),
                        point(100,10),
                        point(100,200),
                        point(50,200),
                        point(50,10)]);

{ Ustalamy ponownie parametry pdzla }
 Form1.Canvas.Pen.Mode := pmNotXor;
 Form1.Canvas.Pen.Color := clBlue;

 for Count := 0 to (Form1.Width div 5) do
 begin
 { rysujemy trjkt }
  Form1.Canvas.PolyLine([point(Count*5,100),
                         point(Count*5+10,100),
                         point(Count*5+5,105),
                         point(Count*5,100)]);
 { Ptla opniajca }
  Pause := Time;
  while (Time-Pause) < 1e-12 do;

 { kasujemy trjkt }
  Form1.Canvas.PolyLine([point(Count*5,100),
                         point(Count*5+10,100),
                         point(Count*5+5,105),
                         point(Count*5,100)]);
 end;
end;