Управление курсором - Pascal ABC

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

Здравствуйте, программисты =) Очень нужна ваша помощь! Как сделать чтобы при перемещении курсора в нужное место и нажатии ЛКМ выполнялось действие? Псевдокод:/

если курсор находится в квадрате(x1,y1,x2,y2) и нажата ЛКМ, то выполнить действие, в ином случае ничего не делать

/. Как-то так...

Решение задачи: «Управление курсором»

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

uses graphABC,events;
procedure MouseDown(x,y,mb:integer);
begin
if (mb=1)and(x>=10)and(x<=250)and(y>=50)and(y<=200) then
 begin
  setpencolor(clRed);
  setpenwidth(5);
  circle(x,y,50);
 end;
end;
begin
onmousedown:=MouseDown;
end.

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

В начале объявляются необходимые библиотеки и процедуры.
Затем идет условие в процедуре MouseDown, которое проверяет, что нажатие мыши было, и координаты x и y соответствуют заданным параметрам.
Если условие выполняется, то устанавливается цвет кисти на красный и ширина кисти на 5.
Затем вызывается функция circle, которая рисует окружность с радиусом 50 по координатам x и y.
В конце процедуры объявляется связь между событием нажатия мыши и процедурой MouseDown.