dividieren

[daNiii]

Hallo!

In meinen Programm möchte ich dividieren, leider erscheint aber eine Fehlermeldung.

Delphi-Quellcode:

var
Counter, CounterNoten, Note: integer;
Ergebnis: extended;
begin
Counter:= 0;
CounterNoten:= 0;
if Node.stateindex > 0 then  begin
      adoquery1.close;
      adoquery1.sql.Clear;
      adoquery1.SQL.Add('SELECT * from Bewertungen where Schülernummer = '+inttostr(Node.stateindex));  //aufsteigende
      adoquery1.Open;
      While not  ADOQUERY1.Eof do begin
         Counter:= Counter +1;
         Note:= adoquery1.FieldValues['Bewertung'];
         CounterNoten:= CounterNoten + Note;

         ADOQUERY1.next;
      end;
      ADOQUERY1.close;

Ergebnis:= CounterNoten / Counter; // hier kommt der Fehler

statusbar1.Panels[0].text := 'Leistungen: '+inttostr(Counter);
statusbar1.Panels[1].text := 'Notend.: '+floattostr(Ergebnis);
end else begin
statusbar1.Panels[0].text := '';
end;

Kann mir bitte jemand helfen?!