Problema con cambiar el nombre de Equipo

[Delphi01]

Muchas gracias Neftalieres muy amable te agradezco mucho tu explicación tan detallada, me funcionó lo de SetComputerName pero tenia que poner Windows en uses , algo que no lo capto muy bien todavía ,
para llamar la :

procedure TfrmMain.btnCambiarNombrePCClick(Sender: TObject);
begin
If SetComputerName(edit1.Text) Then
begin
If MessageDlg('Computer name succesfully set.' + #13#10#13#10 + 'Would you like to restart to apply changes?',mtConfirmation,[mbYes,mbNo],0) = mrYes Then
begin
WindowsExit(EWX_REBOOT or EWX_FORCE);
end;
end
Else
begin
ShowMessage('Computer name change failed.');
end;
end;

Una pregunta amigo que és la diferencia entre SetComputerName y SetComputerNameEx?