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:

procedure TForm1.Button5Click(Sender: TObject);
var
dummy: teinheit;
i, e,f,g,h: integer  ;
begin

a:= strtoint(spiobp.text)+strtoint(ljagerbp.text)+strtoint(sjagerbp.text)
    +strtoint(kreuzerbp.text)+strtoint(zerstorerbp.text)+strtoint(kleinbp.text)
    +strtoint(grosbp.text)+strtoint(kolobp.text)+strtoint(rakbp.text)
    +strtoint(lasbp.text)+strtoint(ionbp.text);

e:=strtoint(spiobp.text);
f:=strtoint(ljagerbp.text);
g:=strtoint(sjagerbp.text);
  for  i := 1 to  e do
   begin
   dummy:=Teinheit.create;
   dummy.angriff:=0;
   dummy.vert:=0;
   atta.add(dummy);
  end;

f:=e+f;

  for i:=e+1 to f do
   begin
   dummy:=Teinheit.create;
   dummy.angriff:=5;
   dummy.vert:=5;
   atta.add(dummy);
  end;
 h:=f+g;
 g:=f+g; 
  for i:=f+1 to g do
   begin
   dummy:=Teinheit.create;
   dummy.angriff:=15;
   dummy.vert:=10;
   atta.add(dummy);
  end;
  //for i:=1 to  h do
  //showmessage(inttostr(teinheit(atta[i]).angriff));

end;


procedure TForm1.FormCreate(Sender: TObject);
begin
atta:=tlist.create;
end;