[roman]

Quizá esta función te sirva:

Código Delphi [-]
function GetComputerName: String;
var
  Buffer: array[0..MAX_COMPUTERNAME_LENGTH] of Char;
  BufferLength: Cardinal;

begin
  BufferLength := SizeOf(Buffer);
  Windows.GetComputerName(Buffer, BufferLength);

  Result := Buffer;
end;

// Saludos