Как скрыть или удалить кнопки с формы?

program vhod;
uses graphABC,abcbuttons;
procedure OnButtonClick;
var
sound: system.Media.SoundPlayer;
  begin
  sound:= new system.Media.SoundPlayer;
  sound.SoundLocation:='sound\buttons\blip1.wav';
  sound.Play;
  window.Clear;
    writeln('1');
   end;
   procedure onbuttonclick1;
   var
   sound: system.Media.SoundPlayer;
   begin
   sound:= new system.Media.SoundPlayer;
  sound.SoundLocation:='sound\buttons\blip1.wav';
  sound.Play;
   window.Clear;
   writeln('2');
   end;
   procedure onbuttonclick3;
   var
   sound: system.Media.SoundPlayer;
   begin
   sound:= new system.Media.SoundPlayer;
  sound.SoundLocation:='sound\buttons\blip1.wav';
  sound.Play;
  sleep(200);
  window.Close;
  end;
  procedure onbuttonclick2;
  var
  sound: system.Media.SoundPlayer;
  begin
  sound:= new system.Media.SoundPlayer;
  sound.SoundLocation:='sound\buttons\blip1.wav';
  sound.Play;
  end;
var
n1:integer;
sluz:integer;
  a: text;
  fil_name: string[20];
  txt: string[4];
  fff: integer;
  scet: integer;
  len: byte;
  position: byte;
  str: string;
  parol: string;
  otv: char;
  word1, word2: string[20];
key: string;
sc:integer;
sound: system.Media.SoundPlayer;
label nz, menu;
begin
window.IsFixedSize := true;
window.Load('pictures\Titul1.2.jpg');
sleep(5000);
  window.Load('pictures\Titul1.4.jpg');
  sound:= new system.Media.SoundPlayer;
  sound.SoundLocation:='sound\sound\EFFECT_28.wav';
  sound.Play;
  sleep(3000);
  sc:=0;
 nz:
 window.Load('pictures\key.jpg');
 while sc<>3 do
 begin
  writeln('');
  readln(key);
  sc:=sc+1;
  if key='&'  then begin  window.Load('pictures\proh.jpg'); sleep(2000); goto menu end else  window.Load('pictures\nkey.jpg');sleep(2000); goto nz;
  end; 
  if sc=3 then window.Load('pictures\nkey2.jpg');sleep(3000); halt;
  menu:
  begin
  var  p := new buttonabc(160, 150, 210, 50, '1',clWhite); 
  var p1:=new ButtonABC(410,150,210,50,'2',clWhite);
  p.OnClick:=OnButtonClick;
  p1.OnClick:=OnButtonClick1;
  var p2:= new ButtonABC(160,300,210,50,'3', clWhite);
  var p3:=new ButtonABC(410,300,210,50,'Выход',clBlack );
  p2.OnClick:=onbuttonclick2;
  p3.OnClick:=onbuttonclick3;
  window.Load('pictures\menu2.jpg');
  end;
 end.

p.Visible:=false;//скрыть
p.destroy;//уничтожить

var  p := new buttonabc(160, 150, 210, 50, '1',clWhite);//сначала создаем
p.destroy;//потом уничтожаем

uses
  graphabc, abcbuttons;
begin
  window.IsFixedSize := false;
  window.Width:=250;
  window.Height:=350;
  var  p := new buttonabc(70, 250, 70, 40, '234', clblue);
  sleep(2000);
 // p.Visible:=false;
  p.destroy;
end.

uses
  graphabc, abcbuttons;
  var p:buttonabc;
  procedure OnButtonClick;
   begin
    font.Color:=clRed;
    textout(40,50,'Я создал кнопку');
    p.destroy;
   end; 
begin
  window.IsFixedSize := true;
  p := new buttonabc(70, 250, 70, 40, '234', clblue);
  p.OnClick:=OnButtonClick;
end.

uses
  graphabc, abcbuttons;
  var p,p1:buttonabc;
  procedure OnButtonClick1;
   begin
    SetFontColor(clRed);
    p.Color:=clWhite;
    font.Color:=clRed;
    textout(40,50,'Я создал кнопку');
    p.destroy;
   end; 
  procedure OnButtonClick2;
   begin  
    SetFontColor(clRed);
    p1.Color:=clWhite;
    font.Color:=clRed;
    textout(40,50,'Я создал еще одну кнопку');
    p1.destroy;
   end; 
begin
  window.IsFixedSize := true;
  p := new buttonabc(70, 250, 70, 40, 'Button1', clGray);
  p.OnClick:=OnButtonClick1;
  p1 := new buttonabc(170, 250, 70, 40, 'Button2', clGray);
  p1.OnClick:=OnButtonClick2;
end.