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:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:

//Feuer Frei
procedure TForm1.Button3Click(Sender: TObject);
var   x:char;
      q,a,b,i,j,y,z,k,l,g,h:integer;
      Label EingabeSpieler, EingabeComputer, GewinnerSpieler, GewinnerComputer;
Begin
  Randomize;
{~~Spieler~~}
EingabeSpieler:
  x:=Edit1.text[1];
  Case x of
    'A': z:=1;
    'B': z:=2;
    'C': z:=3;
    'D': z:=4;
    'E': z:=5;
    'F': z:=6;
    'G': z:=7;
    'H': z:=8;
    'a': z:=1;
    'b': z:=2;
    'c': z:=3;
    'd': z:=4;
    'e': z:=5;
    'f': z:=6;
    'g': z:=7;
    'h': z:=8;
  end;
  y:=strtoint(edit2.Text);
  if Feld[y,z]='s' then
    begin
      Feld[y,z]:='T';
       StringGrid1.Canvas.Brush.Color := clRed;
       StringGrid1.Canvas.Rectangle(y*31,z*31,(y+1)*31,(z+1)*31);
    end
  else
    Begin
      Feld[y,z]:='X';
      For i:=1 to 8 do
        For j:=1 to 8 do
          StringGrid1.Cells[j,i]:=Feld[j,i];
    end;
  Edit1.Clear;
  Edit2.Clear;

{~~Computer~~}
EingabeComputer:
  a:=Random(8)+1;
  b:=Random(8)+1;
  if Feld2[a,b]='s' then
    begin
      Feld2[a,b]:='T';
       StringGrid2.Canvas.Brush.Color := clRed;
       StringGrid2.Canvas.Rectangle(a*31,b*31,(a+1)*31,(b+1)*31);
    end
  else
    Begin
      Feld2[a,b]:='X';
      For i:=1 to 8 do
        For j:=1 to 8 do
          StringGrid2.Cells[j,i]:=Feld2[j,i];
    end;

{~~Gewinner Abfrage~~}
{~~~~Spieler gewinnt~~~~}
  GewinnerSpieler:
  h:=0;
  g:=0;
  For i:=1 to 8 do
    For j:=1 to 8 do
      if Feld[j,i]='s' then inc(h);
    if h=0 then
      begin
        For k:=1 to 8 do
          begin
            for i:=1 to 100000000 do
            inc(q);
            StringGrid2.Canvas.Brush.Color := clRed;
            StringGrid2.Canvas.Rectangle(k*31,k*31,(k+1)*31,(k+1)*31);
          end;
        For l:=8 downto 1 do
          begin
            for i:=1 to 100000000 do
            inc(q);
            inc(g);
            StringGrid2.Canvas.Brush.Color := clRed;
            StringGrid2.Canvas.Rectangle(l*31,g*31,(l+1)*31,(g+1)*31);
          end;
        if(MessageDlg('Nochmal Spielen?',mtConfirmation, [mbYes, mbNo], 0 ))=mrYes then
        FormCreate(Sender)
        else close;
      end;

{~~~~Computer gewinnt~~~~}
  GewinnerComputer:
  h:=0;
  g:=0;
  For i:=1 to 8 do
    For j:=1 to 8 do
      if Feld2[j,i]='s' then inc(h);
        if h=0 then
          begin
            For k:=1 to 8 do
                begin
                  for i:=1 to 100000000 do
                  inc(q);
                  StringGrid2.Canvas.Brush.Color := clRed;
                  StringGrid2.Canvas.Rectangle(k*31,k*31,(k+1)*31,(k+1)*31);
                end;
              For l:=8 downto 1 do
                begin
                  for i:=1 to 100000000 do
                  inc(q);
                  inc(g);
                  StringGrid2.Canvas.Brush.Color := clRed;
                  StringGrid2.Canvas.Rectangle(l*31,g*31,(l+1)*31,(g+1)*31);
                end;
       if(MessageDlg('Nochmal Spielen?',mtConfirmation, [mbYes, mbNo], 0 ))=mrYes then  
       FormCreate(Sender)
       else close;
end;
end;