Инсталляция/удаление сервисов под NT

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

tmpS: String;

begin

  tmpS := 'Delphi_Service_'+Application.Title;

  if (CreateNTService(Application.ExeName,tmpS)) then

    MessageDlg('Service '+tmpS+' has been successfully created!',mtInformation,[mbOK],0)

   else

    MessageDlg('Unable to create service '+tmpS+' Win32 Error code: '+IntToStr(GetLastError),mtWarning,[mbOK],0);

end;

procedure TForm1.Button2Click(Sender: TObject);

var

tmpS: String;

begin

tmpS := 'Delphi_Service_'+Application.Title+'1';

if (DeleteNTService(tmpS)) then

    MessageDlg('Service '+tmpS+' has been successfully deleted!',mtInformation,[mbOK],0)

else

    MessageDlg('Unable to delete service '+tmpS+' Win32 Error code: '+IntToStr(GetLastError),mtWarning,[mbOK],0);

end;