uses
  System.SysUtils, Winapi.Windows;

// ...

function ComputerName() : string;
begin
  var ABuffer : array[0..256 -1] of WideChar;
  var ABufferLen : DWORD := Length(ABuffer);

  if GetComputerName(ABuffer, ABufferLen) then
    SetString(result, ABuffer, ABufferLen)
  else
    raise EWindowsException.Create('GetComputerName');
end;

// ...

WriteLn(ComputerName());