Como retornar o nome NetBIOS do computador (ou nome do sistema)

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

BOOL GetComputerName(
  LPTSTR lpBuffer,
  LPDWORD lpnSize
);

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

function GetComputerNetName: string;
var
  buffer: array[0..MAX_COMPUTERNAME_LENGTH] of char;
  size: dword;
begin
  size := MAX_COMPUTERNAME_LENGTH + 1;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := 'Não definido';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // vamos obter o nome do computador
  ShowMessage(GetComputerNetName());
end;