Registry Autostart problem

[CReber]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
  var regist:TRegistry;
begin
      regist.RootKey := HKEY_CURRENT_USER;
      regist.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', true);
      Try 
        regist.WriteString('Programmname', 'c:\Programm.exe');
      finally
        regist.CloseKey;
        regist.Free;
      end;
end;

Was zum Teufel ist daran falsch? Macht bei mir immer einen Fehler beim Setzen der Value für Programmname