Нужно сделать кнопку, которая будет очищать экран и после нужно будет вводить новые числа

program kurs3;
uses graphABC,ABCButtons;
var gx,gy,x0,y0,a,b,c,k,x1,y1,yRight,yLeft,i: integer;
    x,y: real; 
    Button1 : ButtonABC;
procedure ButtonClick1;
begin
{GraphDefaults;  //Очистка экрана}
end; 
procedure ButtonClick2;
begin
halt;  //Аварийный выход из программы
end;    
BEGIN
     {Ввод коэффициентов}
     writeln('Введите коэффициенты a,b,c ');
     readln(a,b,c);
     write('Строится график функции: y=',a,'(x*x)+',b,'x+',c);
     {Размер графического окна}
     gx:=900;   
     gy:=800;
     yLeft:=50;   //Координата левой верхней границы системы координат
     yRight:=gy - 50;   //Координаты правой нижней границы системы координат
     k:=20;  //Масштаб
     setwindowsize(gx,gy);
     x0:=gx div 2; //центр Х
     y0:=gy div 2; //центр Y
     {Рисуем ось ОX}
     line(0,y0,gx,y0);
     line(gx,y0,gx-10,y0+10); 
     line(gx,y0,gx-10,y0-10);
     {Рисуем ось ОY}
     line(x0,0,x0,gy);
     line(x0,0,x0-10,10);
     line(x0,0,x0+10,10);
     setfontsize(12);  //Размер шрифта
     setfontcolor(clblue);  //Цвет шрифта
     textout(gx-10,y0+10,'X');  //Подписываем ось ОX
     textout(x0+10,10,'Y');  //Подписываем ось ОY   
     {Цикл для разметки цены деления}
     i:=-18;
     while i<19 do
          begin
               line(x0+i*k,y0+5,x0+i*k,y0-5);  //Цена деления оси ОХ
               setfontsize(10);  //Размер шрифта
               setfontcolor(clgreen);  //Цвет шрифта
               textout(x0+i*k,y0+10,inttostr(i));  //Значение цены деления
               if i<>0 then  //Убираем лишний 0 на графике
                    begin
                         line(x0+5,y0-i*k,x0-5,y0-i*k);  //Цена деления оси ОY
                         textout(x0+10,y0-i*k,inttostr(i));  //Значение цены деления
                    end;
               inc(i);
          end;
     {График функции строим по точкам}     
     x:=-10;
     while x<10 do
          begin
               y:=a*sqr(x)+b*x+c;  //Вычисление значение функции
               x1:=x0+round(x*k);  //Координата X относительно центра
               y1:=y0-round(y*k);  //Координата Y относительно центра
               if (y1 >= yLeft) and (y1 <= yRight) then SetPixel(x1, y1, clred);  //Если y попадает в границы [yLeft; yRight], то ставим точку
               x:=x+0.001;  //Увеличиваем Х
          end; 
     Button1 := ButtonABC.Create(780,750,100,'Выход',clLightGray);  //Создание кнопки для выхода
     Button1.OnClick := ButtonClick2;  //При нажатии на кнопку выполняется процедура ButtonClick2
     Button1 := ButtonABC.Create(20,750,100,'Очистить',clLightGray);  //Создание кнопки для очистки
     Button1.OnClick := ButtonClick1;  //При нажатии на кнопку выполняется процедура ButtonClick1
END.