Демонстрация движения равнобедренной трапеции, меняющий свой цвет при каждом шаге

var
  Form1: TForm1;
  x,y,c:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
Timer1.Enabled:=false;
Timer1.Interval:=200;
Button1.Caption:='ПУСК';
x:=25;
y:=PaintBox1.Height div 2;
doublebuffered:=true;
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
with PaintBox1.Canvas do
 begin
  pen.Color:=clblack;
  brush.Color:=clWhite;
  rectangle(0,0,width,height);
  pen.Color:=c;
  brush.Color:=c;
  moveto(x-25,y+15);
  polygon([point(x-15,y-15),point(x+15,y-15),
           point(x+25,y+15),point(x-25,y+15)]);
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
Button1.Enabled:=false;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
c:=RGB(random(256),random(256),random(256));
x:=x+15;
repaint;
if x+25>=PaintBox1.Width then Timer1.Enabled:=false;
end;