tipsystem1:=ParamStr(1);

/AES1

var
  Service1: TService1;
  sobch1,sobch2,sobch3,sobch4,sobch5,sobch6,tipsystem1: string;

implementation

{$R *.DFM}

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

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

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
var s2,s3,s4,s5,s6,s7,s8: string;
Ini: Tinifile;
BaudRate: TBaudRate;
 StopBits: TStopBits;
  Parity: TParityBits;
  DataBits: TDataBits;
begin
  Started := True;


  
end;

procedure TService1.ServiceExecute(Sender: TService);
var s2,s3,s4,s5,s6,s7,s8,s: string;
Ini: Tinifile;
BaudRate: TBaudRate;
 StopBits: TStopBits;
  Parity: TParityBits;
  DataBits: TDataBits;
  i: integer;
begin
  

  ADOConnection1.Connected := false;
  Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'Przapdancomport.ini');
  s2:=Ini.ReadString('Main','SERVER','');
  ADOConnection1.ConnectionString:=s2;

  
   tipsystem1:=System.ParamStr(1);


  Ini.WriteString('AES1','NUMSYSTEM',tipsystem1);
  Ini.Free;


  While not Terminated do
ServiceThread.ProcessRequests(True);


end;

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