Delphi: переименовать службу, запуск 2-х экземпляров службы

var
  Cnf1 : TStringList;
begin
  Cnf1 := TStringList.Create;
  Cnf1.LoadFromFile(extractfilepath(paramstr(0))+'\INI\Service.ini');
  Service1.Name         := Cnf1.Values['Name'];  // загружаю имя службы из настроек
  Service1.DisplayName  := Cnf1.Values['DisplayName'];
  Cnf1.Free;
end;

program WebTrader;
 
uses
  SvcMgr,
  WebTraderService in 'WebTraderService.pas' {Service1: TService},
  VariablesUnit in 'VariablesUnit.pas',
  CreateUnit in 'CreateUnit.pas',
  MySQLUnit in 'MySQLUnit.pas',
 
  Classes, SysUtils, Dialogs;
 
{$R *.RES}
var
  Cnf1 : TStringList;
begin
  Cnf1 := TStringList.Create;
  Cnf1.LoadFromFile(extractfilepath(paramstr(0))+'\INI\Service.ini');
  Service1.Name         := Cnf1.Values['Name'];  // загружаю имя службы из настроек
  Service1.DisplayName  := Cnf1.Values['DisplayName'];
  Cnf1.Free;
 
  Application.Initialize;
  Application.CreateForm(TService1, Service1);
  Application.Run;
end.

procedure ServiceLoadInfo(Sender: TObject);

procedure TServiceMain.ServiceLoadInfo(Sender : TObject);// new method, not an override
begin
  Name := ParamStr(2);
  DisplayName := ParamStr(3);
end;
 
procedure TServiceMain.ServiceBeforeInstall(Sender: TService);
begin
  ServiceLoadInfo(Self);
end;
procedure TServiceMain.ServiceCreate(Sender: TObject);
begin
  ServiceLoadInfo(Self);
end;