Problema con cambiar el nombre de Equipo

[Delphi01]

Hola ,

para cambiar el nombre de PC he utilizado lo siguiente :

Código Delphi [-]
function SetComputerName(AComputerName: string): Boolean;
var
  ComputerName: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  StrPCopy(ComputerName, AComputerName);
  Result := Windows.SetComputerName(ComputerName);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if SetComputerName('NewComputerName') then
    ShowMessage('Computer Name Reset Setting will be used at next startup.')
  else 
    ShowMessage('Computer Name Not Reset');
end;

pero no funcionó y me da este error :

Slack overflow

estoy utilizando delphi xe8 y parec que no acepta Windows.SetComputerName y tuve que quitar Windows
y escribir la así

Código Delphi [-]
  Result :=SetComputerName(ComputerName);

Necesito saber porqué no funcinó, o si hay otro código mejor .

Muchas gracias.