Заливка треугольника в движении

unit controls;
uses graphabc;
var x1,y1,mb1,count_l,count_R,left,right,down,up,chek:integer; //выходные значения
var GameEsc:boolean;
procedure mouseMove(x,y,mb:integer);
begin
  x1 := x;
  y1 := y;
end;
procedure mouseDown(x,y,mb:integer);
begin
  if(mb = 1)then begin mb1:=1; Inc(count_l); end;
  if(mb = 2)then begin mb1:=2; Inc(count_R); end;
end;
procedure mouseUp(x,y,mb:integer);
begin
  if(mb = 1)then mb1:=0;
  if(mb = 2)then mb1:=0;
end;
procedure KeyDown(key:integer);
begin
  if (Key = VK_Left) then left := 1;
  if (Key = VK_Right) then right := 1;
  if (key = VK_Up) then begin up := 1; if(chek >= 1)then begin Dec(chek); end else begin chek := 2; end; end;
  if (key = VK_Down) then begin down := 1; if(chek <= 1)then begin Inc(chek); end else begin chek := 0; end; end;
end;
procedure KeyUP(key:integer);
begin
  if (Key = VK_Left) then left := 0;
  if (Key = VK_Right) then right := 0;
  if (key = VK_Up) then up := 0;
  if (key = VK_Down) then down := 0;
  if (Key = VK_Escape) then GameEsc := false;
end;
begin
  OnMouseMove := mouseMove;
  OnMouseDown := mouseDown;
  OnMouseUp := mouseUp;
  OnKeyDown := KeyDown;
  OnKeyUp := KeyUp;
end.

uses graphabc, controls;
type point = record
      x1,y1,x2,y2,x3,y3:integer;
      start:boolean;
      end;
     Mass = array[1..2]of point;
var
  speed, k,l:integer;
  obj:Mass;
begin
  LockDrawing;
 
  SetPenWidth(2);
  speed := 0;
  k := 5; l := 2;
  obj[1].x1 := 0;  obj[1].x2 := 60; obj[1].x3 := 120;
  obj[1].y1 := 220; obj[1].y2 := 120; obj[1].y3 := 220;
 
  obj[2].x1 := -120;  obj[2].x2 := -60; obj[2].x3 := 0;
  obj[2].y1 := 220; obj[2].y2 := 120; obj[2].y3 := 220;
  
  obj[1].start := true;
  while true do begin
    ClearWindow;
    
    if(controls.left = 1)and(speed > 0)then speed := speed - 1;
    if(controls.right = 1)then speed := speed + 1;
    
//    Line(Round(WindowWidth/2),0,Round(WindowWidth/2),WindowHeight);
    
    for var i:=1 to 2 do begin
      
      if(obj[i].start)then begin
        
        obj[i].x1 := obj[i].x1 + speed;
        obj[i].x2 := obj[i].x2 + speed;
        obj[i].x3 := obj[i].x3 + speed;
        
        
        Line(obj[i].x1,obj[i].y1,obj[i].x2,obj[i].y2);
        Line(obj[i].x2,obj[i].y2,obj[i].x3,obj[i].y3);
        Line(obj[i].x3,obj[i].y3,obj[i].x1,obj[i].y1);
        
        
        //--
        //FloodFill();
        //--
        
        if(obj[i].x3 > WindowWidth)then begin
          if(i < 2)then begin
            obj[i+1].start := true;
          end else begin
            obj[i-1].start := true;
          end;
        end;
        
        if(obj[i].x1 > WindowWidth)then begin
          obj[i].start := false;
          obj[i].x1 := -120;  obj[i].x2 := -60; obj[i].x3 := 0;
          obj[i].y1 := 220; obj[i].y2 := 120; obj[i].y3 := 220;
        end;
      end;
    end;
    TextOut(10, 10, 'Скорость объекта: ' + speed);
    Redraw;
    Sleep(15);
  end;
end.

        Brush.Color := rgb(92,92,92);
        Polygon((obj[i].x1,obj[i].y1),(obj[i].x2,obj[i].y2),(obj[i].x3,obj[i].y3));
        Brush.Color := rgb(255,255,255);