delphi and TService

Procedure StartService(ServiceName : AnsiString; Const Args : Array of String);
var i : Integer;
    sArgs : String;
    sFirst : PAnsiChar;
    aServiceControl : SC_Handle;
    aService : SC_Handle;
begin
  aService := 0;
  // Get a handle to the service manager...
  aServiceControl := WinSVC.OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
  if aServiceControl = 0 then RaiseLastOSError;
  try
    // Get a handle to the service...
    aService := WinSVC.OpenService(aServiceControl, PAnsiChar(ServiceName), SERVICE_START);
    if aService = 0 then RaiseLastOSError;
    // Build sArgs string by concatenating the Args elemtents, separated by #0
    for i := 0 to Length(Args)-1
      do sArgs := sArgs + Args[i] + #0;
    // Point to the first String...
    if Length(sArgs) > 0
      then sFirst := Addr(sArgs[1])
      else sFirst := nil;
    // try Starting the service...
    if not WinSVC.StartService(aService, Length(Args), sFirst)
      then RaiseLastOSError;
  finally
    if aService <> 0 then WinSVC.CloseServiceHandle(aService);
    if aServiceControl <> 0 then WinSVC.CloseServiceHandle(aServiceControl)
  end;
End;
 
Procedure StopService(ServiceName : AnsiString);
var aServiceControl : SC_Handle;
    aService : SC_Handle;
    aStatus : TServiceStatus;
begin
  aService := 0;
  // Get a handle to the service manager...
  aServiceControl := WinSVC.OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
  if aServiceControl = 0 then RaiseLastOSError;
  try
    // Get a handle to the service...
    aService := WinSVC.OpenService(aServiceControl, PAnsiChar(ServiceName), SERVICE_STOP);
    if aService = 0 then RaiseLastOSError;
    // try Stopping the service...
    if not WinSVC.ControlService(aService, SERVICE_CONTROL_STOP, aStatus)
      then RaiseLastOSError;
  finally
    if aService <> 0 then WinSVC.CloseServiceHandle(aService);
    if aServiceControl <> 0 then WinSVC.CloseServiceHandle(aServiceControl)
  end;
End;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  // You can pass runparameters to the service here...
  // Ex: StartService(Edit1.Text, ['MyRunParam1', 'MyRunParam2']);
  StartService(Edit1.Text, []);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  StopService(Edit1.Text);
end;

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64: