1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

var
  Form1: TForm1;
  Ball:TBall;
  x,y,s:integer;
  RX,RY:integer;
  Halt:boolean;
  a:array[1..9] of TBall;
 

implementation

{$R *.dfm}
constructor TBall.Create(Posx,Posy,Size:integer);
begin
x:=PosX; y:=PosY; s:=Size;
end;

procedure TBall.Bewegen;
begin
Halt:=false;
Ball:=TBall.Create(100,150,80);
randomize;
x:=random(749)+101;
y:=random(299)+151;
repeat
Application.ProcessMessages;
Randomize;
RX:=random(12)+1;
RY:=Random(6)+1;
while  (x<(950-s)) and (y<(600-s)) and (Halt=false) do begin
Application.ProcessMessages;
X:=x+RX;
y:=y+RY;
Form1.DoubleBuffered:=true;
Form1.Refresh;
Form1.Canvas.Ellipse(x,y,x+s,y+s);
end;
Form1.Canvas.Ellipse(x,y,x+s,y+s);
RX:=random(12)+1;
RY:=Random(6)+1;
repeat
Application.ProcessMessages;
X:=x-RX;
y:=y-RY;
Form1.DoubleBuffered:=true;
Form1.Refresh;
Form1.Canvas.Ellipse(x,y,x+s,y+s);
until  (y<151) or (x<(101)) or (Halt=true);
until Halt=true;

end;

procedure TBall.Verschwinden;
begin
Form1.Refresh;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Ball:=TBall.Create(100,150,80);
Form1.Canvas.Brush.Color:=clred;
end;

procedure TForm1.BStartClick(Sender: TObject);
begin
Ball.Bewegen;
end;

1:
2:

for i:=1 to 
  a[i]:=TBall.Create(x, y, r);

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

type TBall=class
  protected
    FCanvas : TCanvas;
    FFarbe : TColor;
    FGeschwindigkeitX, FGeschwindigkeitY : Integer;
    FX, FY, FRadius: Integer;
    FGrenzeX, FGrenzeY : Integer;
  public
    constructor Create;
    procedure SetCanvas(Canvas:TCanvas);
    procedure SetFarbe(Farbe : TColor);
    procedure SetGrenzeX(x:Integer);
    procedure SetGrenzeY(y:Integer);
    procedure Zeichne;
    procedure Loesche;
    procedure Bewege;
end;