procedure OnTimer01(Sender: TObject); begin Timer01.interval := 1000+round(random(1000)); case a of .....