Zeig mal den rest von deine Code.
In der While Schleife passiert folgendes...
Delphi-Quellcode:
procedure TForm1.BtnGroClick(Sender: TObject);
var
x,a,i,zahl:Integer;
begin
x:=0;
a:=0;
zahl:=0;
while x<=5 do //solang x <= 5 wird die Schleife ausgführt
begin
If Feld[a]>=10 then //if Abfrage auf <= 10
begin
zahl:=zahl+1; //die 3 folgenden Zeilen werden ausgeführt, wenn if = true
a:=a+1;
x:=x+1;
end
else
begin
x:=x+1; // immer noch Schleif als x+1 wenn nicht if = true.
end;
end;
Label1.Caption:=inttostr(zahl);
end;
Ist also soweit OK. Bist du sicher das Feld[a] in dieser Zeit größer 10 ist.
Gruß Jens