Backup timer möglich?

[DeluxXx]

Source noch mal updated jetzt mit Unit1 =) sorry

Delphi-Quellcode:

 case Combobox1.ItemIndex  of
  // Hour Interval
  3: Timer1.Interval := strtoint(Edit1.Text)*1000*60*60 ;
  // Minute Interval
  2: Timer1.Interval := strtoint(Edit1.Text)*1000*60 ;
  // Seconds
  1: Timer1.Interval := strtoint(Edit1.Text)*1000 ;
  //MilliSeconds
  0: Timer1.Interval := strtoint(Edit1.Text) ;
  end;

für eine Combobox in der Reihnfolge
MilliSeconds
Seconds
Minutes
Hours
des erspart einem jedes mal in Millisekunden umzurechnen