Odczytanie nazwy komputera w Delphi

Funkcja zwraca jako string nazwę komputera w sieci.

function GetComputerNameStr: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := Length(buffer);
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;