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:

procedure TForm1.Button9Click(Sender: TObject);
var t6,t7,t8,t9,t10,t11,t12,t13,t14,t15,mig : real;
i:integer;
begin
tablerot.Refresh;
//Parameter berechnen
 t6:=0;
 t7:=0;
 t8:=0;
 t9:=0;
 t10:=0;
 t11:=0;
 t12:=0;
 t13:=0;
 t14:=0;
 t15:=0;
 mig:=0;

  tablerot.First;
  for i:=0 to tablerot.RecordCount-1 do begin
   if tablerot.Fields.Fields[6].AsString <> 'Deutsch' then mig:=mig+1;
   if tablerot.Fields.Fields[5].AsString = '6' then t6:=t6+1;
   if tablerot.Fields.Fields[5].AsString = '7' then t7:=t7+1;
   if tablerot.Fields.Fields[5].AsString = '8' then t8:=t8+1;
   if tablerot.Fields.Fields[5].AsString = '9' then t9:=t9+1;
   if tablerot.Fields.Fields[5].AsString = '10' then t10:=t10+1;
   if tablerot.Fields.Fields[5].AsString = '11' then t11:=t11+1;
   if tablerot.Fields.Fields[5].AsString = '12' then t12:=t12+1;
   if tablerot.Fields.Fields[5].AsString = '13' then t13:=t13+1;
   if tablerot.Fields.Fields[5].AsString = '14' then t14:=t14+1;
   if tablerot.Fields.Fields[5].AsString = '15' then t15:=t15+1;
   tablerot.Next;
end;

 t6:=(t6 / tablerot.RecordCount)*100;
 t7:=(t7 / tablerot.RecordCount)*100;
 t8:=(t8 / tablerot.RecordCount)*100;
 t9:=(t9 / tablerot.RecordCount)*100;
 t10:=(t10 / tablerot.RecordCount)*100;
 t11:=(t11 / tablerot.RecordCount)*100;
 t12:=(t12 / tablerot.RecordCount)*100;
 t13:=(t13 / tablerot.RecordCount)*100;  //Hier
 t14:=(t14 / tablerot.RecordCount)*100;
 t15:=(t15 / tablerot.RecordCount)*100;