Обработка событий

Program GrafRed;
 uses GraphABC, Events;
 var w, col: integer;
procedure kPress(ch: char); { обработчик нажатия символьных клавиш }
begin
 if ch='r' then col:=clRed; { r красный }
 if ch='g' then col:=clGreen; { g зеленый }
 if ch='b' then col:=clBlue; { b синий }
 if ch='w' then col:=clWhite; { w белый }
end;
procedure kDown(key: integer); { обработчик нажатия клавиш управления
курсором }
begin
 if key = VK_Up then w:=w+1; { увеличение толщины пера }
 if key = VK_Down then w:=w-1; { уменьшение толщины пера }
 if key = VK_Delete then ClearWindow(clWhite); { очистка окна }
end;
procedure mDown(x,y,mb: integer); { обработчик нажатия клавиши мыши }
begin
 MoveTo(x,y);
end;
procedure mMove(x,y,mb: integer); { обработчик перемещения мыши }
begin
 setPenColor(col); SetPenWidth(w);
 SetWindowCaption(IntToStr(x)+', '+IntToStr(y));
 if mb=1 then LineTo(x,y); { рисование линии }
end;
BEGIN { основная программа: вызов обработчиков событий}
OnKeyPress:=kPress;
OnKeyDown:=kDown;
OnMouseDown:=mDown;
OnMouseMove:=mMove
END.