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:

dmgA := 0 ;
dmgD := 0 ;
defA := 0 ;
defD := 0 ;
For  i := 1 to 2 do
 begin
  For j := 1 to 13 do
   begin
    Anzahl_U[i][j] := strtoint(edits[i][j].Text) ;
   end;
 end;

For J := 1 to 13 do
 begin
  dmgA :=  Anzahl_U[1][j] *  (Units[j][1] + Random(Units[j][3]) ) + dmgA ;
  defA :=  Anzahl_U[1][j] *  (Units[j][2] + Random(Units[j][3]) ) + defA ;
  dmgD :=  Anzahl_U[2][j] *  (Units[j][1] + Random(Units[j][3]) ) + dmgD ;
  defD :=  Anzahl_U[2][j] *  (Units[j][2] + Random(Units[j][3]) ) + defD ;
 end;
 messagedlg(inttostr(dmga)+ ' ' + inttostr(defA) + ' ' + inttostr(dmgD) + ' ' + inttostr(defD),mtinformation,[mbOK],0);
ndefD := defD - DmgA ;
ndefA := defA - DmgD ;
 messagedlg(inttostr(ndefA)+ ' ' +inttostr(ndefA),mtinformation,[mbOk],0);

if (defD <> 0) and (defA <> 0) then
 begin
  abzfD := ndefD / defD * 100;
  abzfA := ndefA / defA * 100;
  messagedlg(floattostr(abzfA)+ ' ' +floattostr(abzfD),mtinformation,[mbOk],0);
 end
else
 begin
  exit;
 end;
For j := 1 to 13 do ;
 begin
  nAnzahl_U[1][j] := Anzahl_U[1][j] * abzfA / 100 ;
  nAnzahl_U[2][j] := Anzahl_U[2][j] * abzfD / 100 ;
 end;
for j := 1 to 13 do
 messagedlg(floattostr(nAnzahl_U[1][j]) + ' ' + floattostr(nAnzahl_U[2][j]),mtinformation,[mbOK],0);