TTimer +

TDealy = (Dlbform,DlSysKeys,DlTaskBar,DlTaskBarStatus,DlStartButton);

TDealylist = Array[1..5] of TTimer;
Procedure Tstealth.DealyRestor(Dealy :TDealy; TimeInMs: Cardinal);
Begin
case Dealy of
  Dlbform        : Begin
                    Dealylist[1].Interval := TimeInMs;
                    Dealylist[1].OnTimer  := Dl1;
                    Dealylist[1].Enabled  := True;
                    End;
  DlSysKeys      : Begin
                    Dealylist[2].Interval := TimeInMs;
                    Dealylist[2].OnTimer  := Dl2;
                    Dealylist[2].Enabled  := True;
                    End;
  DlTaskBar      : Begin
                    Dealylist[3].Interval := TimeInMs;
                    Dealylist[3].OnTimer  := Dl3;
                    Dealylist[3].Enabled  := True;
                    End;
  DlTaskBarStatus : Begin
                    Dealylist[4].Interval := TimeInMs;
                    Dealylist[4].OnTimer  := Dl4;
                    Dealylist[4].Enabled  := True;
                    End;
  DlStartButton  : Begin
                    Dealylist[5].Interval := TimeInMs;
                    Dealylist[5].OnTimer  := Dl5;
                    Dealylist[5].Enabled  := True;
                    End;
End;
End;

Dealylist[1].Interval := TimeInMs;
Denne line give dette hvorfor?
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message \'Access violation at address 0046ECF7 in module \'Project1.exe\'. Read of address 0000004C\'. Process stopped. Use Step or Run to continue.
---------------------------
OK  Help 
---------------------------

Hvis det fordi man ikke gøre det hvad gør man så?