Fehlermeldung: Ausdruckstyp muss BOOLEAN sein

[Klaus01]

wie wird help denn 0?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
   r, help: Integer;
begin
  if start then
    begin
      INC(level);
      help:=level + 3;   // bei jedem Timeraufruf wird help auf 4 gesetzt
      start:=false;
    end;

   if (delay = 1) then 
     begin
       r:=Random(4);
       case r of
         0: panel7.Color:=clRed;
         1: panel4.Color:=clLime;
         2: panel5.Color:=clYellow;
         3: panel6.Color:=clBlue;
       end;
       delay:=2;
     end
   else   
     begin
       panel4.Color:=clGreen;
       panel5.Color:=clOlive;
       panel6.Color:=clNavy;
       panel7.Color:=clMaroon;
       delay:=1;
       DEC(help);                   // hier ist help = 3
       if (help = 0) then timer1.Enabled:=false;
     end;
end;  // und hier ist der Timer zuende.

und vielleicht für eine neue Frage einen neuen Thread aufmachen.

Grüße
Klaus