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:

unit uTBall;

interface

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

type
  TBall = class(TObject)
    private
      FPlace : TCanvas;
      FX : integer;
      FY : integer;
      FRadius : integer;
      FColor : TColor;
    public
      constructor Create(APlace : TCanvas);
      procedure Draw(AX, AY, ARadius : integer);
      procedure Move(XSpeed: integer; YSpeed : integer);
      function GetX : integer;
      function GetY : integer;
      function GetRadius : integer;
  end;

implementation

// Builds the new ball
constructor TBall.Create(APlace : TCanvas);
begin
  FPlace := APlace;
end;

// Sets postition of the ball and draws it
procedure TBall.Draw(AX: integer; AY: integer; ARadius: integer);
begin
  FX := AX;
  FY := AY;
  FRadius := ARadius;
  FPlace.Ellipse(FX - FRadius, FY - FRadius, FX + FRadius, FY + FRadius);
end;

// Sets ball to a new position and draws it with the Draw procedure
procedure TBall.Move(XSpeed: integer; YSpeed : integer);
begin
  Draw(FX + XSpeed, FY + YSpeed, FRadius);
end;

// Returns the X-Coordinate of the ball
function TBall.GetX;
begin
  result := FX;
end;

// Returns the Y-Coordinate of the ball
function TBall.GetY;
begin
  result := FY;
end;

// Returns the radius
function TBall.GetRadius;
begin
  result := FRadius;
end;
end.                    

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:

procedure TmainForm.btnStartClick(Sender: TObject);
var
  i : integer;
begin
  myBall := TBall.Create(PaintBox1.Canvas);
  myBall.Draw(random(100)+50, random(100)+50, random(20)+10);
  Timer1.Enabled := true;
end;

procedure TmainForm.Timer1Timer(Sender: TObject);
begin
  PaintBox1.Refresh;
  if (myBall.GetX - myBall.GetRadius < 1) then
  begin
    myBall.Move(2,?);
  end
  else
  if (myBall.GetX + myBall.GetRadius >= PaintBox1.Width) then
  begin
    myBall.Move(-2,?);
  end
  else
  if (myBall.GetY - myBall.GetRadius < 1) then
  begin
    myBall.Move(?,2);
  end
  else
  if (myBall.GetY + myBall.GetRadius >= PaintBox1.Height) then
  begin
    myBall.Move(?,-2);
  end
  else
    myBall.Move(2,2);
end;                    

1:
2:
3:
4:
5:
6:

// Kollision am oberen Rand
  if (myBall.GetY - myBall.GetRadius <= 1) then
  begin
    YStep := + YStep;
    myBall.Move(XStep,YStep);
  end                    

1:

YStep := -YStep;