Función que nos da el nombre del PC en la red en Delphi

Unidades necesarias:

uses
  Windows, Messages, ..., WinSock, IdHttp, WinInet;

Función que nos da el nombre del PC en la red:

function LeerNombrePC: string;
var
  Buffer: array[0..255] of char;
  dwLongitud: DWord;
begin
  dwLongitud := 256;

  if GetComputerName( Buffer, dwLongitud ) then
    Result := Buffer
  else
    Result := ''
end;