Afbryde en service

Min service ser således ud

procedure TSMHTMLemailSvc.ServiceExecute(Sender: TService);
begin
  Timer1.Interval := delay * 1000;
  Timer1.Enabled := True;
  while not Terminated do
    ServiceThread.ProcessRequests(True);// wait for termination
  Timer1.Enabled := False;
end;

Denne kører fint indtil jeg stopper servicen via windows services.

Men jeg vil gerne kunne stoppe servicen både under OnStart men også når Timer prcodeuren kaldes.

Hvordan gør jeg dette ?