Delphi-Help

procedure TForm1.ReadRegistryDefaults; 

var 

  Registry: TRegistry; 

  AccountStr: string; 

begin 

  Registry := TRegistry.Create; 

  try 

    Registry.RootKey := hkey_CURRENT_USER; 

    if Registry.OpenKey('software\microsoft\internet account manager', False) then  {} 

    begin 

      AccountStr := Registry.ReadString('default mail account'); 

      Registry.CloseKey; 

      if (AccountStr <> '') then 

        if Registry.OpenKey('software\microsoft\internet account manager\accounts\' + 

          AccountStr, False) then  {} 

        begin 

          Edit_Server.Text  := Registry.ReadString('SMTP Server'); 

          Edit_Account.Text := Registry.ReadString('SMTP Email Address'); 

          Registry.CloseKey; 

        end; 

    end; 

  finally 

    Registry.Free; 

  end; 

end;