Fórum problema com regedit (dados) #349348

var 
  login : String; 
begin 
  reg := TRegistry.Create; 
  with reg do 
  begin 
    RootKey := hkey_current_user; 
    reg.OpenKey (´software\sp´, false); 
    if reg.KeyExists(´teste´) then
    begin 
      if reg.ReadString(´teste´) = ´´ then
      ShowMessage(´String vazia´)
      else
      ShowMessage(´Valor existe: ´+ Reg.ReadString(´Teste´);      
    end
    else
    ShowMessage(´Valor não existe´);
  end;