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:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:

procedure TForm1.GameTimerTimer(Sender: TObject);
var
  gameActive: Boolean;
  R: TRect;
begin

  GameTimer.Enabled := False;

  // Spiel-Schleife
  gameActive := True;

  Bildani := FormImages.stand1;

  While (gameActive) do
  begin
    // Hintergrund auf den Puffer kopieren
    buffer.Canvas.Draw(bg_breite, bg_hoehe, imgBackground.Picture.Graphic);

    // Kaktus an die richtige Stelle kopieren
    buffer.Canvas.Draw(k_breite, k_hoehe, bildani.Picture.Graphic);

    // Block an die richtige Stelle kopieren
    buffer.Canvas.Draw(bl_breite, bl_hoehe, FormImages.imgBlock.Picture.Graphic);

    // Puffer auf den Bildschirm zeichnen
    R.Left := 0;
    R.Top := 0;
    R.Bottom := buffer.Height;
    R.Right := buffer.Width;
    pb1.Canvas.CopyRect(R, buffer.Canvas, R);


    // Tastatur verarbeiten
    Application.ProcessMessages;
    if KeyPressed(27) then
      gameActive := False;

    // 1. Springen?
    if (Keypressed(38)) or (t > 0) then
    begin



      // 1.1 nach links springen?
      if KeyPressed(37) then
      begin
        if Ani >= length(FormImages.img_sl) then
          Ani := 0;
        bildani := FormImages.img_sl[Ani];

        k_breite := k_breite - 2;

        if k_breite <= R.Left + 150 then
          k_breite := R.Left + 150;

        if k_breite = R.Left + 150 then
        begin
          bg_breite := bg_breite + 2;
          bl_breite := bl_breite + 2;
        end;
      end
      // 1.2 nach rechts springen?
      else if KeyPressed(39) then
      begin
        if Ani >= length(FormImages.img_sr) then
          Ani := 0;
        bildani := FormImages.img_sr[Ani];

      k_breite := k_breite + 2;

      if k_breite >= R.Right - 150 then
        k_breite := R.Right - 150;

      if k_breite = R.Right - 150 then
      begin
        bg_breite := bg_breite - 2;
        bl_breite := bl_breite - 2;
      end;
      end
      // 1.3 im Stehen springen!
      else
      begin
        if Ani >= length(FormImages.img_spring) then
          Ani := 0;
        bildani := FormImages.img_spring[Ani];
      end;

        y := - 0.5 * g * t * t + v * t;
        k_hoehe := R.Bottom - bildani.Height - Round(y);
        t := t + 0.3;

      if k_hoehe > R.Bottom - bildani.Height then
      begin
        k_hoehe := R.Bottom  - bildani.Height;
        t := 0;
      end;
    end
    ...