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:

type
  TForm1 = class(TForm)
  {..}
  private
    {private declarations}
    FX, FY: Integer;
  end;

{..}

implementation

{..}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FX := 10;  //Initialisieren: Am Anfang den Ball nach unten links.
  FY := Paintbox1.Height - 10;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FX := FX + 1;  //Den Ball bewegen
  FY := FY - 1;
  Paintbox1.Repaint;
end;

procedure TForm1.Paintbox1Paint(Sender: TObject);
begin
  Paintbox1.Canvas.Brush.Color := clWhite;  //Hintergrund weiß, hebt sich vom Formularhintergrund ab
  Paintbox1.Canvas.FillRect(Paintbox1.ClientRect);  //Neu zeichnen: Bisheriges auf der PBox weiß übermalen
  Paintbox1.Canvas.Brush.Color := clRed;  //Füllfarbe
  Paintbox1.Canvas.Pen.Color := clBlue;  //Randfarbe
  Paintbox1.Canvas.Ellipse(FX - 10, FY - 10, FX + 10, FY + 10);  //Kreis zeichnen; r=10, M=(FX, FY)
end;