Timer Verständnisfrage

[Alois]

Hi,

Ich benutze in meinem Projekt einen Timer mit einem Intervall von 100ms.
Warume werden die einzelnen case-Anweisungen nicht durchlaufen?

Warum funktioniert folgender Code nicht?

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Interval: integer;
begin
  if Interval > 10 then Interval := 1;
  case Interval of
   2, 4, 6, 8 : begin
     // alle 200ms
   end;
   5: begin
     // alle 500ms
   end;
   10 : begin
     // alle 1000ms
   end;
  end;
  Interval := Interval + 1;
end;

Gruss Alois