uses registry;//下面写入;
var
  reg:TRegsitry;
begin
  reg:=TRegistry.create;
  reg.rootkey:=HKEY__LOCAL__MACHINE;
  reg.openkey('\software\microsoft\windows\currnetversion\run',true);
  reg.writestring('起个名字','指定你的可执行文件所在的路径及文件名');
  reg.closekey;
  reg.free;
  
end;