While schleife endlos? oder nicht?

[_frank_]

der Zählfehler kommt daher, dass du zwar bis 5 gehst, aber den index nirgends nutzt.

hier mal bisschen gekürzt...a und i brauchst nicht.

Delphi-Quellcode:

procedure TForm1.BtnGroClick(Sender: TObject);
var
  x,zahl:Integer;
begin
x:=0;
zahl:=0;
while x<=5 do
begin
  If Feld[x]>=10 then
    zahl:=zahl+1;
  x:=x+1;
end;
Label1.Caption:=inttostr(zahl);
end;

Guß Frank