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

procedure TimerLassFallenOnTimer(Sender:TObject);
begin
FallenZuLassenderStein.Top:=ZuFallenLassenderStein.Top+1;
if angekommen then
    TimerLassFallen.Enabled:=false;
end;					

1:
2:

var {die Deklaration der Form-Variablen}
     FallenZuLassenderStein:TImage;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

FallenZuLassenderStein:=new Image(Form4Gewinnt);
if spieler1GleichTrueSpieler2GleichFalse then //also wenn Spieler 1 dran ist:
      begin
      FallenZuLassenderStein.Picture.LoadFromFile('GelberStein.bmp');
      end;
else //also wenn Spieler 2 dran ist:
      begin
      FallenZuLassenderStein.Picture.LoadFromFile('RoterStein.bmp');
      end;
FallenZuLassenderStein.Left:=TButton(Sender).Left;
FallenZuLassenderStein.Top:=TButton(Sender).Top+10; //oder so, damit er nicht direkt übereinander startet.
TimerLassFallen.Enabled:=true; //Damit der Stein auch "runterfliegt".					

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

var Pos: TPoint; //Position wo der Stein Positioniert wurde
var j: Integer; //Schleifenvaraibale
var Feld: array[0..9, 0..9] of Byte; //SpielfeldArray (Breite*Höhe)

j := 0;
while (j < High(Feld[Pos.X])) and (Feld[Pos.X, Pos.Y] = 0) do
  dec(Pos.Y);