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

unit Unit1;

interface

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

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
Button1: TButton;
Button3: TButton;
Button4: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Circle1,Circle2 : Tcircle;

window : TImage;
pxm,pym,xo,yo,ro : word;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Window:= Form1.Image1;
colrback:=clBlack;
pxm:=Window.ClientWidth ;
pym:=Window.ClientHeight;
with window.Canvas do begin
pen.Color:=ColrBack;
Brush.Color:=ColrBack;
Rectangle(0,0,pxm,pym);
end;
xo:=0;
yo:=pym div 2;
ro:=50;

Circle2:=TCircle.create(xo+50,yo+60,ro-40,clBlack,window.Canvas);
circle1:=TCircle.create(xo+50,yo+60,ro-30,clBlue,window.Canvas);

circle1.Show;
circle2.Show;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
circle1.Free; circle2.Free;
end;

procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
begin
For i:=1 to 30 do
begin

Circle1.MoveTo(i,0); window.Update; sleep(20);
Circle2.MoveTo(i,0); window.Update; sleep(20);
end

end;

procedure TForm1.Button3Click(Sender: TObject);
begin

Circle1.MoveTo(-5,0);
Circle2.MoveTo(-5,0)
end;

end.