Доработать игру

Gauge1.Progress := Gauge1.MaxValue;

gauge1.Progress:=gauge1.Progress-1;

if gauge1.Progress=0 then

procedure TForm1.FillNewBricks;
var
   i,j:integer;
begin
  for i:=0 to Form1.DrawGrid1.ColCount-1 do
   for j:=0 to Form1.DrawGrid1.RowCount-1 do
      if ColorOfBrick[i, j] = WALL_COLOR then
            ColorOfBrick[i,j] := PossibleColors[Random(MAX_COLORS)];
end;

if not IsBrickAlone(ACol, ARow) then
begin
   RemoveBricks(ColorOfBrick[ACol, ARow], ACol, ARow);
   SlideBricksDown;
   FillNewBricks;
   RedrawCells
end;

  if StateTimerAnimation<>0 then Exit;

procedure TForm4.pb_AttackTimePaint(Sender: TObject);
var x3,y3: Double;
begin
  with pb_AttackTime.Canvas do begin
    Pen.Color:=clRed;
    Brush.Style:=bsClear;
    Brush.Color:=clBtnFace;
    Ellipse(x0Attack - rAttack, y0Attack - rAttack,
      x0Attack+rAttack, y0Attack + rAttack);
    Brush.Style:=bsSolid;
    Brush.Color:=clRed;
 
    if angleAttack>=360 then
       Ellipse(x0Attack - rAttack, y0Attack - rAttack,
         x0Attack + rAttack, y0Attack + rAttack)
    else begin
      x3:=x0Attack+rAttack*cos(GradToRad(angleAttack - 90));
      y3:=y0Attack+rAttack*sin(GradToRad(angleAttack - 90));
 
      Pie(x0Attack - rAttack, y0Attack - rAttack,
        x0Attack + rAttack, y0Attack + rAttack,
        round(x3),round(y3),
        x0Attack, 0);
    end;
 
  end;
end;

function TForm4.RemoveBricks(cl:TColor; ACol, ARow: integer): integer;
begin
  Result:=0;
  if ColorOfBrick[ACol, ARow] <> cl then exit;
  Result:=1;
  ColorOfBrick[ACol, ARow]:= WALL_COLOR;
  if ACol>0 then
    Result:= Result + RemoveBricks(cl, ACol - 1, ARow);
  if ACol<Form4.DrawGrid1.ColCount - 1 then
    Result:= Result + RemoveBricks(cl, ACol + 1, ARow);
  if ARow>0 then
    Result:=Result + RemoveBricks(cl, ACol, ARow - 1);
  if ARow<Form4.DrawGrid1.RowCount - 1 then
    Result:=Result+RemoveBricks(cl, ACol, ARow + 1);
end;