uses GraphABC;

begin
  OnMouseDown := (x,y,mb) -> Circle(x,y,5);
end.