setsame Zahlen

[clock50]

Delphi-Quellcode:

procedure TForm1.JvTimer1Timer(Sender: TObject);
begin
inc(zaehler);
  Label31.Caption := '';
  vorbereiten1;
  if stope = 1 Then Label31.Caption := Label31.Caption+'1' else Label31.Caption := Label31.Caption+'0';
  For c := a to zaehler do werteaus1;
//--------------------------------------------- 
  if stope = 1 Then Label31.Caption := Label31.Caption+'1' else Label31.Caption := Label31.Caption+'0';
  zeigean1;
  if stope = 1 Then Label31.Caption := Label31.Caption+'1' else Label31.Caption := Label31.Caption+'0';
  vorbereiten2;
  if stope = 1 Then Label31.Caption := Label31.Caption+'1' else Label31.Caption := Label31.Caption+'0';
  For c := a to zaehler do werteaus2;
  if stope = 1 Then Label31.Caption := Label31.Caption+'1' else Label31.Caption := Label31.Caption+'0';
  zeigean2;
  if stope = 1 Then Label31.Caption := Label31.Caption+'1' else Label31.Caption := Label31.Caption+'0';
  Label4.Caption := inttostr(zaehler);
  if zaehler >= Length(zzahl)-2 Then stope := 1;
  if stope = 1 Then
   begin
   JvTimer1.Enabled := False;
   Button1.Enabled := True;
   Button2.Enabled := True;
   Button3.Enabled := True;
   Button4.Enabled := True;
   Button5.Enabled := False;
   end;
end;

Da wo die Markierung ist "stope" nach x durchläufen 1 oder mit anderen Werten (werteliste) an anderen Stellen aber der aktuelle wert ist nicht gleich! Label31 ist zur kontrolle. Ich denke es ist ein Überlauf oder so.
Auch wenn "Stope" Boolean ist ist das so.