Get SMTP Mailserver

uses Registry

private
    { Private declarations }
    procedure ReadRegistryDefaults;

//

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
          Edit1.Text  := Registry.ReadString('SMTP Server');
          Edit2.Text  := Registry.ReadString('SMTP Email Address');
          Registry.CloseKey;
        end;
    end;
  finally
    Registry.Free;
  end;
end;