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:

{ --- --- Prozedur: Feuern & Versenken --- ---}

procedure TForm6.Feuern;
var vX,vY:integer;
    Typ:string;
    Versenkt,Verloren:boolean;

begin
{1. FEUERN}
  if Spielfeld[strtoint(Form6.EX.text),strtoint(Form6.EY.text)].Treffer=true then
    showmessage('Feld bereits beschossen.')
  else
  begin
  BTreffen.Enabled:=false;
  BWechsel.Enabled:=true;
  // Zugzähler erhöhen}
  inc(Zugzaehler);
  Form6.LZug.caption:='Züge: '+InttoStr(Zugzaehler);

  // Schuss auf Feld
  Spielfeld[strtoint(Form6.EX.text),strtoint(Form6.EY.text)].Treffer:=true;

  showmessage('Schuss auf ('+Form6.EX.text+') | ('+Form6.EY.text+'). Getroffen: '+Spielfeld[strtoint(Form6.EX.text),strtoint(Form6.EY.text)].Typ);

{2. VERSENKEN}

  Typ:=Spielfeld[strtoint(Form6.EX.text),strtoint(Form6.EY.text)].Typ;

  {2.1. Test: Schiff zerstört?}

  // Feld scannen: nach intakten Teilen suchen
  for vX := 1 to 10 do
    for vY := 1 to 10 do
      if Spielfeld[vX,vY].typ=typ then
        if Spielfeld[vX,vY].treffer=false then // intaktes Schiffsteil gefunden
          begin
            Versenkt:=false;  // Schiff schwimmt noch
            if Spielfeld[vX,vY].Typ<>'Wasser' then
              showmessage(Typ+' schwimmt noch...');
            abort;
          end;

  {2.2. Schiff zerstört: Versenken}
  if Versenkt then
    begin
      // Feld scannen: auf 'versenkt' schalten
      for vX := 1 to 10 do
        for vY := 1 to 10 do
         if Spielfeld[vX,vY].typ=typ then
           Spielfeld[vX,vY].versenkt:=true;

      showmessage(Typ+' zerstört.');
    end;

{3. GRAFIK}
// Feld neuladen...

{4. SPIELENDE}

  {4.1 Nach unversenkten Schiffen suchen}
  Verloren:=true;
  // Feld scannen
  for vX := 1 to 10 do
    for vY := 1 to 10 do
      if Spielfeld[vX,vY].typ<>'Wasser' then // Schiff gefunden
        if Spielfeld[vX,vY].versenkt=false then // schwimmendes Schiff gefunden
          begin
            Verloren:=false;  // mind. Schiff schwimmt noch
            abort;
          end;

  {4.2 Kein Schiff mehr übrig: Spielende}
  if Verloren then
    begin
      case Aktiv of
      1: showmessage('Flotte vernichtet. Spieler 1 hat das Spiel gewonnen!');
      2: showmessage('Flotte vernichtet. Spieler 2 hat das Spiel gewonnen!');
      end;

      application.terminate;
    end;

{Jeder beliebige Programmtext, der ab hier steht wird ignoriert}

  end;
end;					

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

{ --- Schuss auf Feld --- }
procedure TForm6.BTreffenClick(Sender: TObject);
begin
  Feuern;
  Reload_Grafik; // Wird nicht mehr gelesen. :(
end;					

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

{ --- Schuss auf Feld --- }
procedure TForm6.BTreffenClick(Sender: TObject);
var x,y:integer;
begin
  x:=Ex.text;
  y:=Ey.text;
  Feuern (x,y:Integer);
  Reload_Grafik; // Wird nicht mehr gelesen. :(
end;					

1:
2:

if function IsVersenkt(x,y,typ)=false
  then