Насчет delphi не знаю, но есть API функции SetComputerName и SetComputerNameEx:
MSDN:
Код:
SetComputerNameEx
The SetComputerNameEx function sets a NetBIOS or DNS name for the local
computer. Name changes made by SetComputerNameEx do not take effect
until the user restarts the computer.
BOOL SetComputerNameEx(
COMPUTER_NAME_FORMAT NameType,
LPCTSTR lpBuffer
);
И еще надо для этого административные полномочия.