Typen nicht miteinander vereinbar

[lbccaleb]

probier es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,e,f,g,h,i,j,mittelwert:integer;
begin
  j:=strtoint(edit10.text);
  i:=strtoint(edit9.text);
  h:=strtointedit8.text);
  g:=strtoint(edit7.text);
  f:=strtoint(edit6.text);
  e:=strtoint(edit5.text);
  d:=strtoint(edit4.text);
  c:=strtoint(edit3.text);
  b:=strtoint(edit2.text);
  a:=strtoint(edit1.text);

mittelwert:=(a+b+c+d+e+f+g+h+i+j) div 10;
label12.caption:=inttostr(mittelwert);