Lentidão com a função que retornava o nome do computador

Pessoal, segue nova função que retorna o nome do computador.
A função anterior começou a apresentar um lentidão após a mudança na nossa rede interna, devido agora os computadores não ter mais IP fixo, e a função anterior passava o IP da máquina como parâmetro.

function NomeComputador: string; overload;
var
ipbuffer: array [0..MAX_COMPUTERNAME_LENGTH] of Char;
size: DWORD;
begin
size := Sizeof(ipbuffer);
if GetComputerName(ipbuffer, size) then
Result := ipbuffer
else
Result := '';end;

Reparem na diretiva overload na assinatura da função.
Eu deixei as duas funções no projeto.
Se passar o IP como parâmetro, o sistema utiliza a antiga, se não passar parâmetro nenhum, o sistema utiliza a nova função.
Lembrem-se de colocar a mesma diretiva overload na assinatura na função anterior.