АСОИ, Delphi, много вариантов 2 сем / 1классы / шарик красиво лопается / Unit1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses unit2,clipbrd, Math;
var
okno1:TImage;
x0,y0,a0,b0,high0,lengthline0,xmax,ymax:word;
shar:sharik;


{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
okno1:=Form1.Image1;
colorback:=clWhite;
xmax:=okno1.Width;
ymax:=okno1.Height;

with okno1.canvas do begin
pen.color:=colorback; brush.Color:=colorback;
rectangle(0,0,xmax,ymax);
end;
x0:=xmax div 2;
y0:=ymax div 2;
a0:=50; b0:=25; lengthline0:=30; high0:=10;
shar:=sharik.create(x0,y0,a0,b0,high0,lengthline0,clBlack,okno1.Canvas);
shar.show;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Shar.hide;
Shar.changesize(0,0,3);
Shar.show;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Shar.hide;
Shar.changesize(0,0,-3);
Shar.show;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Shar.hide;
Shar.changesize(0,-5,0);
Shar.show;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
Shar.hide;
Shar.changesize(0,5,0);
Shar.show;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Shar.hide;
Shar.changesize(-5,0,0);
Shar.show;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Shar.hide;
Shar.changesize(5,0,0);
Shar.show;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
ClipBoard.Assign(Image1.Picture);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
shar.Free;
Halt;
end;

procedure TForm1.Button10Click(Sender: TObject);
var x1,x2,x3,x4,y1,y2,y3,y4,x,y,a,b,i:integer; okno1:TImage;
begin
i:=0;
okno1:=Form1.Image1;
xmax:=okno1.Width;
ymax:=okno1.Height;
x:=shar.x;
y:=shar.y;
a:=shar.a;
b:=shar.b;
shar.hide;
while (i<=3) do begin
x1:=x+3*i;
x2:=x-3*i;
x3:=x-3*i;
x4:=x+3*i;
y1:=y-3*i;
y2:=y-3*i;
y3:=y+3*i;
y4:=y+3*i;
with Canvas do begin
pen.color:=colorback; brush.Color:=colorback;
rectangle(0,0,xmax,ymax);
pen.color:=clBlack; brush.Color:=clBlack;
pie(x1-b,y1+a,x1+b,y1-a,x1+b,y1,x1,y1-a);
pie(x2-b,y2+a,x2+b,y2-a,x2,y2-a,x2-b,y2);
pie(x3-b,y3+a,x3+b,y3-a,x3-b,y3,x3,y3+a);
pie(x4-b,y4+a,x4+b,y4-a,x4,y4+a,x4+b,y4);
end;
sleep(30);
i:=i+1;
end;
end;

end.