Сохранить данные в реестр из TService

[Shouldercannon]

Доброго времени суток!
Так я считываю данные TService из реестра

procedure Tsc.ServiceCreate(Sender: TObject);
var
  RegFile: TRegINIFile;
begin
  RegFile := TRegINIFile.Create('Software');
  RegFile.OpenKey(Name, False);
  CurrentDate := RegFile.ReadString('Main', 'CurrentDate', DateToStr(Date));
  ITimerInterval := RegFile.ReadInteger('Main', 'TimerInterval', 7200);
  RegFile.CloseKey;
  FreeAndNil(RegFile);
end;

Так хочу сохранить данные из TService в реестр

var
  RegFile: TRegINIFile;
begin
  RegFile := TRegINIFile.Create('Software');
  RegFile.OpenKey(Name, True);
  RegFile.WriteString('Main', 'CurrentDate', FormatDateTime('dd.mm.yyyy"-"hh:nn:ss:zzz', Now));
  RegFile.WriteInteger('Main', 'TimerInterval', ITimerInterval);
  RegFile.CloseKey;
  FreeAndNil(RegFile);
end;

OnDestroy и OnShutdown не помогают.