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:

 function TForm1.gewinner:string;              //Gewinnabfrage
  var
  i, j : byte;                                //i steht für die Slots und j für die Reihen
 begin
 help := ' ';

     for j := 1 to 6 do                      // Waagerecht
       begin
        for i := 1 to 4 do
        begin
        if (gewinn[i, j] = 'a')             //Die Zählschleife durchläuft das Array und fragt die entsprechende Felder ab, und falls einer er Fälle eintritt, wird help auf 'a' oder 'b' gesetzt. Dann hat ein Spieler gewonnen!
         and (gewinn[i + 1, j] = 'a')
         and (gewinn[i + 2, j] = 'a')
         and (gewinn[i + 3, j] = 'a') then
         begin
           help := 'a';
           spieler := 'Spieler 1';
           inc(scoreb);
         end
        else
         if  (gewinn[i, j] = 'b')
         and (gewinn[i + 1, j] = 'b')
         and (gewinn[i + 2, j] = 'b')
         and (gewinn[i + 3, j] = 'b') then
         begin
         help := 'b';
         spieler := 'Spieler 2';
         inc(scoreb);
         end;
        end;
    end;

  for i := 1 to 7 do                    // Vertikal
    begin
     for j := 1 to 3 do
       begin
         if (gewinn[i, j] = 'a')            //Bei der Vertikalen Abfrage läuft es ähnlich, wie bei der waagerechten ab
         and (gewinn[i, j + 1] = 'a')
         and (gewinn[i, j + 2] = 'a')
         and (gewinn[i, j + 3] = 'a') then
         begin
           help := 'a';
           spieler := 'Spieler 1';
           inc(scorea);
         end
         else
           if (gewinn[i, j] = 'b')
           and (gewinn[i, j + 1] = 'b')
           and (gewinn[i, j + 2] = 'b')
           and (gewinn[i, j + 3] = 'b') then
           begin
             help := 'b';
             spieler := 'Spieler 2';
             inc(scoreb);
           end;
       end;
    end;					

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

     for j := 1 to 6 do                      // Waagerecht
       begin
        for i := 1 to 4 do
        begin
        if (gewinn[i, j] = 'a')             //Die Zählschleife durchläuft das Array und fragt die entsprechende Felder ab, und falls einer er Fälle eintritt, wird help auf 'a' oder 'b' gesetzt. Dann hat ein Spieler gewonnen!
         and (gewinn[i + 1, j] = 'a')
         and (gewinn[i + 2, j] = 'a')
         and (gewinn[i + 3, j] = 'a') then
         begin
           help := 'a';
           spieler := 'Spieler 1';
           inc(scoreb);   <------------------------- DA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
         end