Mudar nome do Computador

type
  TForm1 = class(TForm)
    BtnNovoNome: TButton;
    LblEdtNovoNome: TLabeledEdit;
    LblEdtNomeAtual: TLabeledEdit;
    BtnNomeAtual: TButton;
  private
    function LoadComputerName: string;
    function PostComputerName(pNewName: string): Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

function TForm1.LoadComputerName: string;
var
  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  Windows.GetComputerName(@buffer, Size);
  Result := StrPas(buffer);
end; 

function TForm1.PostComputerName(pNewName: string): Boolean;
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  StrPCopy(ComputerName, pNewName);
  Result := Windows.SetComputerName(ComputerName);
end; 

procedure TForm1.BtnNomeAtualClick(Sender: TObject);
begin
  LblEdtNomeAtual.Text := LoadComputerName;
end;

procedure TForm1.BtnNovoNomeClick(Sender: TObject);
begin
  PostComputerName(LblEdtNovoNome.Text);
  ShowMessage('Reinicie o computador para ver o resultado');
end;