title: delphi service application stop after 15 second, timer not executing
body: <p>I want to make service application in Delphi that run and copy some files everyday at 02:00 PM. So i have used timer. but control not going to timer event and Service terminate within 15 second. I have wrote a code on Timer Event. How can i use timer with service? Please Help. Thanks in Advance.</p>
  
  <p>My Code is Here:</p>
  
  <pre><code>unit untMain;
  
  interface
  
  uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.SvcMgr, Vcl.Dialogs, Vcl.ExtCtrls, DateUtils, Vcl.Forms,
  untCommon;
  
  type
  TsrvBackupService = class(TService)
  tmrCopy: TTimer;
  procedure tmrCopyTimer(Sender: TObject);
  
  private
  strlstFiles : TStringList;
  { Private declarations }
  public
  { Public declarations }
  end;
  
  var
  srvBackupService: TsrvBackupService;
  
  implementation
  
  {$R *.DFM}
  
  procedure ServiceController(CtrlCode: DWord); stdcall;
  begin
  srvBackupService.Controller(CtrlCode);
  end;
  
  
  procedure TsrvBackupService.tmrCopyTimer(Sender: TObject);
  var
  strCurTime   : string;
  strBKPpath   : string;
  strBKPTime   : string;
  NowDay       : word;
  NowMonth     : word;
  NowYear      : word;
  NowHour      : word;
  NowMin       : word;
  NowSec       : word;
  NowMilli     : Word;
  begin
    DecodeTime(now,NowHour,NowMin,NowSec,NowMilli);
    strCurTime := IntToStr(NowHour)+':'+IntToStr(NowMin);
    strBKPTime := '14:00'
    strBKPpath := ExtractFilePath(Application.ExeName);
    if strCurTime = strBKPTime then begin
       Try
             CopyFile(PChar('c:\datafile.doc'),PChar(strBKPpath + 'datafile.doc'),true);
       except
          on l_e: exception do begin
             MessageDlg(l_E.Message,mtError,[mbOk],0);
          end;
       end;
    end;
  end;
  
  end.
  </code></pre>