currentsignal := firstsignal;\r
   while assigned(currentsignal) do begin\r
     if assigned(currentsignal.onsignal) then currentsignal.onsignal(currentsignal,sig);\r
   currentsignal := firstsignal;\r
   while assigned(currentsignal) do begin\r
     if assigned(currentsignal.onsignal) then currentsignal.onsignal(currentsignal,sig);\r