Удаление записи с Registry

[celovec]

Так у меня идет записать в автозапуск:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', false);
  reg.WriteString('My App', Application.ExeName);
  reg.CloseKey;
  reg.free;
end;

Подскажите а как сейчас програмно удалить мою программку с автозапуска?

[_SERGEYX_]

function IsAppInRun(RunName: string): Boolean;
 var
   Reg: TRegistry;
 begin
   Reg := TRegistry.Create;
   with Reg do
   begin
     RootKey := HKEY_LOCAL_MACHINE;
     OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
     Result := ValueExists(RunName);
     CloseKey;
     Free;
   end;
 end;

procedure DelAppFromRun(RunName: string);
 var
   Reg: TRegistry;
 begin
   Reg := TRegistry.Create;
   with Reg do
   begin
     RootKey := HKEY_LOCAL_MACHINE;
     OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
     if ValueExists(RunName) then DeleteValue(RunName);
     CloseKey;
     Free;
   end;
 end;

if IsAppInRun('Programm') then DelAppFromRun('Programm');

[celovec]

Спасибо. Все получилось.