1:
2:

For i := 0 to 5 Do TestString := TestString+IntToStr(Würfel(i));
GrosseStrasse := (Pos('12345',TestString)>0) Or (Pos('23456',TestString)>0);					

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

function grosseStrasse : Boolean;
VAR
Count : Integer;
Diff : Integer;
begin
  Count:= 1;
  Result:= false;
  for i:= low(arr) to high(arr)-1 do
  begin
    Diff:= arr[i+1] - arr[i] ;
    if Diff = 1 // Wenn Differenz 1 ist Count erhöhen
      inc(Count)
    else if Diff <> 0 // Wenn Differenz 0 ist bleibt Count gleich
      Count:= 1; // ansonsten von vorne anfangen
   if Count = 5 then // Wenn 5 mal ist es eine große Straße
     Result:= true;
end;					

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

  i:=1;
  i:=i+1;
  for i:=1 to 3 do
  If (a=i) or (b=i) or (c=i) or (d=i) or (e=i) and
     (a=i+1) or (b=i+1) or (c=i+1) or (d=i+1) or (e=i+1) and
     (a=i+2) or (b=i+2) or (c=i+2) or (d=i+2) or (e=i+2) and
     (a=i+3) or (b=i+3) or (c=i+3) or (d=i+3) or (e=i+3) then
     SGUnten.Cells[0,3]:='30';