1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

constructor TBierflasche.create;
var  resStream: Tresourcestream;
begin
    inherited;
    Speed:= 3;  // Geschwindigkeit, mit der die Items fallen
    Bild:=TImage.Create(Form1);
    Bild.Parent:=Form1.MainPanel;
    case Random(100) of
        // verschiedene Fälle, die alle prinzipiell gelich aussehen
        [...]
        else begin
            // Grafiken sind in Ressourcen eingebunden
            resStream:= TResourceStream.CreateFromID(HInstance, 200, RT_RCDATA);
            PWert:=100;  // Punkte fürs anklicken
            LWert:=0; // "Leben"
        end;
    end;
    Bild.Picture.Bitmap.LoadFromStream(ResStream);
    resStream.Free;
    Bild.Left:=random(Form1.MainPanel.Width-120); // horizontale Position zufällig
    Bild.OnMouseDown:=Form1.IMAGEMouseDown;
    //[...] ein paar weitere Eigenschaften werden noch gesetzt
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:

    if (random(100) < 5) then
    begin
        //Item erzeugen und in eine Liste packen
        Bierflasche:=TBierflasche.create;
        FlaschenListe.Add(Bierflasche);
    end;
    // Alle Items überprüfen
    for i:=FlaschenListe.Count-1 downto 0 do
    begin
        Bierflasche:=FlaschenListe[i] as TBierflasche;
        if Bierflasche.Bild.Top<200 then
        // weiter runterfallen lassen
            Bierflasche.Bild.Top:=Bierflasche.Bild.Top + Bierflasche.Speed
        else
        begin
            if Bierflasche.PWert>=0 then
            begin
                dec(Leben);
                [...]
            end;
            // Item entfernen
            Bierflasche.Bild.Picture.Assign(Nil);
            FlaschenListe.Delete(i);
        end;
    end;                    

1:
2:
3:
4:
5:

destructor TBierflasche.destroy;
begin
    Bild.Free;
    inherited destroy;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

 TBierFlasche = class(TObject)
      Bild:Timage;
      Speed:integer;
      PWert:integer;
      LWert:integer;
      constructor create;
      destructor destroy; override;
  end;