Кнопка в PascalABC.NET - Pascal ABC

Формулировка задачи:

Приведите пример программы, где есть рабочая кнопка и можно использовать мышь для чего-либо. Например, как сделать тут кнопку что бы поле менял цвет?

uses GraphABC;

procedure MouseDown(x,y,mb: integer);
begin
  MoveTo(x,y);
end;

procedure MouseMove(x,y,mb: integer);
begin
  if mb=1 then LineTo(x,y);
end;

begin
  OnMouseDown := MouseDown;
  OnMouseMove := MouseMove
end.

Решение задачи: «Кнопка в PascalABC.NET»

Листинг программы

uses
      GraphABC,
      ABCObjects,
      ABCButtons;
var
  Button1 : ButtonABC;
 
procedure ButtonClick;
begin
end;
 
begin
  Button1 := ButtonABC.Create(20,20,70,'Батон',clLightGray);
  Button1.OnClick := ButtonClick;
end.

Объяснение кода листинга программы

Импортируются необходимые модули: GraphABC, ABCObjects, ABCButtons.
Создается переменная Button1 типа ButtonABC.
Определяется процедура ButtonClick.
Создается кнопка Button1 с координатами (20,20), размером (70), текстом 'Батон' и цветом заливки clLightGray.
Устанавливается обработчик события Click для кнопки Button1, который ссылается на процедуру ButtonClick.
Завершается работа программы.