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

var
a: integer;
begin
a:=1; { wenn a positiv, dann bewegt sich das shape nach unten un wenn a negativ ist, dann geht das shape nach oben! weil top gibt den abstand zwischen shape und oberem form rand an! }
shape1.top:=shape1.top+a;
end;					

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

var
a: integer;
begin
a:=1;  {wenn a positiv, dann bewegt sich das shape nach rechts un wenn a negativ ist, dann geht das shape nach links! weil left gibt den abstand zwischen shape und linkenform rand an! }
shape1.left:=shape1.left+a;
end;					

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

procedure waagerechtbewegen;
var
a,b: integer;
begin
a:=50; // a is halt die entfernung zum nächsten feld
b:=Random(6)+1; // ermittelt ne zahl zwischen 1 und 6
for i:=1 to b do 
shape1.left:=shape1.left+a; //jetzt springt das shape von feld zu feld, vorrausgesetzt der abstand der felder is 50 ;)
end;

procedure senkrechtbewegen;
var
a,b: integer;
begin
a:=50; // a is halt die entfernung zum nächsten feld
b:=Random(6)+1; // ermittelt ne zahl zwischen 1 und 6
for i:=1 to b do 
shape1.top:=shape1.top+a; //jetzt springt das shape von feld zu feld, vorrausgesetzt der abstand der felder is 50 ;)
end;