Gracias Roman, pero ya lo había visto , el inconveniente es que se le olvido poner el cuerpo de las Siguientes Funciones:
Código Delphi
[-]
function GetEnumPriv : boolean;
function GetSysDirectory : string;
function GetServices(sMachine: string; sServices: TStrings): boolean;
function IsNT : boolean;
function IsAdmin: Boolean;
function Display_status(status_code: DWORD) : string;
function ExistService(sMachine, sService : string) : boolean;
function ProcessRunning(Proces: string): boolean;
function ServiceCreate(sMachine, sService, sDisplayName, sBinFile : string;
StartType : integer) : boolean;
ó bien en donde los puedo localizar????
Que tenga buen día.