Ошибка времени выполнения: В экземпляре объекта не задана ссылка на объект

uses GraphABC, Events, ABCObjects;
var
  krug: CircleABC;
  prov: RectangleABC;
  f: boolean;
procedure vragi(x, y, mb: integer);
  var
    m: boolean;
    vrag: EllipseABC;
  begin
    vrag:= new EllipseABC (50, 5, 15, 30, clDarkBlue);
    while True do
      begin
        vrag.MoveOn(1, 0);
        Sleep(10);
        f:=vrag.Intersect(prov);
        m:=vrag.Intersect(krug);
        if m=true then 
          vrag.Destroy;
        if f=false then
          break;
      end;
  end;
procedure bashna (x: integer);
  var
    r, r2, r3: RectangleABC;
  begin
    new RectangleABC(355, 530, 90, 20, clBrown);
    new RectangleABC(365, 510, 70, 20, clBrown);
    new RectangleABC(375, 490, 50, 20, clBrown);
  end;
procedure shar(x, y, mb: integer);
  var
    z, m: integer;
  begin
    krug:=new CircleABC(400, 490, 5, clRed);
    z:=(x-400) div 5;
    m:=(y-510) div 5;
    while True do
      begin
        krug.MoveOn(z, m);
        Sleep(100);
        f:=krug.Intersect(prov);
        if f=false then
          break;
      end;
  end;
 
begin
  prov:=new RectangleABC(0, 0, 800, 550, clYellow);
  prov.ToBack;
  bashna(1);
  SetWindowSize(800, 550);
  OnMouseDown:=shar;
  vragi(1, 1, 1);
end.