Клик мышкой

uses graphabc,abcbuttons;
 
procedure MouseDown(x,y,mb: integer);
begin
  MoveTo(x,y);
end;
 
procedure MouseMove(x,y,mb: integer);
begin
  if mb=1 then Halt else 
end;
 
begin
window.IsFixedSize:=true;
window.Load('peg.jpg');
 var  p:=new buttonabc(10,10,70,40,'234',clblue);
  // Привязка обработчиков к событиям
  OnMouseDown := MouseDown;
 OnMouseMove := MouseMove
end.

uses
  graphabc, abcbuttons;
  procedure OnButtonClick;
   begin
    window.Close;
   end; 
begin
  window.IsFixedSize := true;
  window.Load('ball_200.jpg');
  var  p := new buttonabc(10, 10, 70, 40, '234', clblue);
  p.OnClick:=OnButtonClick;
end.

uses
  graphabc, abcbuttons;
  procedure OnButtonClick;
   begin
    window.Close;
   end; 
begin
  window.IsFixedSize := false;
  window.Load('ball_200.jpg');
  window.Width:=250;
  window.Height:=350;
  textout(40,200,'Это футбольный мяч!');
  var  p := new buttonabc(70, 250, 70, 40, '234', clblue);
  p.OnClick:=OnButtonClick;
end.

uses
  graphabc, abcbuttons;
  procedure OnButtonClick;
  begin
   var
sound: system.Media.SoundPlayer;
  sound:= new system.Media.SoundPlayer;
  sound.SoundLocation:='reset.wav';
  sound.Play;
    window.Close;
   end;
begin
  window.IsFixedSize := true;
  window.Load('peg.jpg');
  var  p := new buttonabc(10, 10, 70, 40, '234', clblue);
  p.OnClick:=OnButtonClick;
end.