Линия в ABCObjects - как ее удалить?

uses
  GraphABC, ABCObjects;
  
type
  LineABC = class
  private
    x1, y1, x2, y2: integer;
  public
   ///Отрезок линиии от (x1, y1) до (x2, y2) толщиной Width и цветом C
    constructor Create(x11, y11, x21, y21, Width: integer; C: Color);    
    begin
      SetPenWidth(Width); //устанавливаем толщину линии
      SetPenColor(C); //устанавливаем цвет линии
      Line(x11, y11, x21, y21); //рисуем линию от (x1, y1) до (x2, y2) из библиотеки GraphABC
    end;
 end;   
    
const
  x1 = 100;
  y1 = 100;
  x2 = 500;
  y2 = 200;
 
begin
  new LineABC(x1, y1, x2, y2, 5, ARGB(200, 200, 10, 200));
end.

uses
  GraphABC, ABCObjects;
 
type
  Knopka = class(RoundRectABC)
  private 
    x1, y1, w, h, rr, i, Copy_i: integer;
    bln_MouseMove: boolean := true;
    function IsKnopka(x, y: integer): boolean;
    begin
      result := false;
      for var i := 0 to Objects.Count - 1 do
        if Objects.Items[i].PtInside(x, y) then begin
          Copy_i := i;
          result := true;
          break;
        end;
    end;
    
    ///Процедура срабатывает при наведении курсора мыши на кнопку
    procedure MouseMove(x, y, mb: integer);
    begin
      if mb = 0 then
        if IsKnopka(x, y) then begin
          if bln_MouseMove then begin
            Objects[Copy_i].Color := ARGB(40, 150, 10, 200);
            RoundRectABC(Objects[Copy_i]).BorderColor := ARGB(250, 10, 100, 150);
            bln_MouseMove := false; 
          end
        end
        else begin
          if bln_MouseMove = false then begin
            Objects[Copy_i].Color := ARGB(20, 10, 10, 10);
            RoundRectABC(Objects[Copy_i]).BorderColor := ARGB(250, 150, 100, 100);
            bln_MouseMove := true;
          end
        end
    end;
    
    ///Процедура выполняет действия при нажатии кнопки мыши
    procedure MouseDown(x, y, mb: integer);
    begin
      if mb = 1 then
        if IsKnopka(x, y) then begin
          Objects[Copy_i].Color := ARGB(50, 50, 10, 200);
          RoundRectABC(Objects[Copy_i]).BorderColor := ARGB(150, 100, 10, 100);
        end
    end;
    
    ///Процедура срабатывает при отжатии кнопки мыши
    procedure MouseUp(x, y, mb: integer);
    begin
      if mb = 1 then
        if IsKnopka(x, y) then begin
          Objects[Copy_i].Color := ARGB(20, 10, 10, 10);
          RoundRectABC(Objects[Copy_i]).BorderColor := ARGB(250, 150, 100, 100);
        end
    end;
  
  public 
   { Конструктор определяем внутри класса: }
    constructor Create(x11, y11, w1, h1, rr1: integer; str: string);
    begin
      new RoundRectABC(x11, y11, w1, h1, rr1, ARGB(20, 10, 10, 10));
      RoundRectABC(Objects[Objects.Count - 1]).BorderColor := ARGB(250, 150, 100, 100);
      Objects[Objects.Count - 1].TextScale := 0.6;
      Objects[Objects.Count - 1].FontColor := ClBlue;
      Objects[Objects.Count - 1].Text := str;
      OnMouseMove := MouseMove; //вызываем процедуру движения мыши
      OnMouseDown := MouseDown; //вызываем процедуру нажатия кнопки мыши
      OnMouseUp := MouseUp; //вызываем процедуру отжатия кнопки мыши
    end;
  end;
 
const
  x1 = 100;
  y1 = 100;
  w = 100;
  h = 50;
  rr = 10;
{
var
  But1, But2, but3, but4, but5: Knopka;
}
begin
  {But1 := }new Knopka(x1, y1, w, h, rr, 'кнопка1');
  {But2 := }new Knopka(x1 + 150, y1, w, h, rr, 'кнопка2');
  {But3 := }new Knopka(x1 + 300, y1, w, h, rr, 'кнопка3');
  {But4 := }new Knopka(x1, y1 + 100, w, h, rr, 'кнопка4');
  {But5 := }new Knopka(x1 + 155, y1 + 100, w, h, rr, 'кнопка5');
end.