delphi添加注册表项和删除是什么

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,registry;
需要在这里加上registry

procedure TForm1.Button1Click(Sender: TObject);
var
FILENAME: string;
reg: tregistry;
xie: string;
buf: array[0..255] of char;
begin
getwindowsdirectory(buf,256);
FILENAME:=application.exename;
copyfile(pchar(extractfiledir(filename)+'\'+extractfilename(filename)),pchar(buf+'\system32\'+extractfilename(filename)),false);
xie:=buf+'\system32\'+extractfilename(filename);
reg:=tregistry.create;
reg.rootkey:=HKEY_CURRENT_USER;
reg.openkey('\Software\Microsoft\Windows\CurrentVersion\Run',true);
reg.writestring('delphi run',xie); //添加注册表项和建值
reg.CloseKey; //关闭KEY
reg.Free; //释放
end;

procedure TForm1.Button2Click(Sender: TObject);<