setsame Zahlen

[Klaus01]

Hallo,

wird der Wert von "stope" in den Prozeduren "vorbereiten1", "werteaus1"
und "zeigean1" verändert?

Wo wird zaehler und stope initialisiert?

Grüße
Klaus

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'   // hier willst Du doch nicht addieren oder?
  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;