diff --git a/PJSysInfo.pas b/PJSysInfo.pas
index be46898..68e6ff2 100644
--- a/PJSysInfo.pas
+++ b/PJSysInfo.pas
@@ -4785,10 +4785,10 @@ class function TPJComputerInfo.BootMode: TPJBootMode;
 class function TPJComputerInfo.ComputerName: string;
 var
   PComputerName:  // buffer for name returned from API
-    array[0..MAX_COMPUTERNAME_LENGTH] of Char;
+  array[0..MAX_COMPUTERNAME_LENGTH] of Char;
   Size: DWORD;    // size of name buffer
 begin
-  Size := MAX_COMPUTERNAME_LENGTH;
+  Size := MAX_COMPUTERNAME_LENGTH + 1;
   if GetComputerName(PComputerName, Size) then
     Result := PComputerName
   else