Fehlermeldung: Ausdruckstyp muss BOOLEAN sein

[Klaus01]

Delphi-Quellcode:

var
  Form1: TForm1;
  delay: Integer = 1;
  level: Integer = 0;
  start: boolean = true;

implementation

procedure TForm1.Timer1Timer(Sender: TObject);
var
   r, help: Integer;
begin
  if start then 
    begin
      INC(level);
      help:=level + 3;
      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);
       if (help = 0) then timer1.Enabled:=false;
     end;
end;

Klammern gesetzt, eingerückt, ein if entfernt, mehrere ifs durch case ersetzt.
randomize sollte nur bei Programmstart aufgerufen werden.
Grüße
Klaus