Timer Verständnisfrage

[lbccaleb]

Auf gut Deutsch

Delphi-Quellcode:

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