const  LOG = 'c:\1\log.txt';
      cExtPath = 'Z:\BusinessServer\';

 type 
  TService1 =  class (TService)
    tmBeep: TTimer;
     procedure  tmBeepTimer(Sender: TObject);
     procedure  ServiceStart(Sender: TService;  var  Started: Boolean);
     procedure  ServiceStop(Sender: TService;  var  Stopped: Boolean);
   private 
     { Private declarations } 
    F: TextFile;
    Count: integer;
   public 
     function  GetServiceController: TServiceController; override;
     { Public declarations } 
   end ;

 var 
  Service1: TService1;

 implementation 

 {$R *.DFM} 

 procedure  ServiceController(CtrlCode: DWord); stdcall;
 begin 
  Service1.Controller(CtrlCode);
 end ;

 function  TService1.GetServiceController: TServiceController;
 begin 
  Result := ServiceController;
 end ;

 procedure  TService1.tmBeepTimer(Sender: TObject);
 var  FolderName:  string ;
 begin 
  beep;
  inc(Count);

  FolderName := cExtPath  + IntToStr(Count);

   if   NOT  ForceDirectories(FolderName)
     then  writeln(F, 'Error: ' + DateTimeToStr(now)+ '::' + FolderName)
   else  writeln(F, '>>>SUCCESS!!!' + DateTimeToStr(now));

  Flush(F);
 end ;

 procedure  TService1.ServiceStart(Sender: TService;  var  Started: Boolean);
 begin 
  Count :=  0 ;
  tmBeep.Enabled := True;

  AssignFile(F, LOG);
   if   NOT  FileExists(LOG)  then   Rewrite(f)
   else  Append(F);

  Started := True;
 end ;

 procedure  TService1.ServiceStop(Sender: TService;  var  Stopped: Boolean);
 begin 
  CloseFile(F);
  Stopped := True;
 end ;