Rede ativa no computador

procedure TForm1.Button1Click(Sender: TObject);

begin

if GetSystemMetrics(SM_NETWORK) and $01 = $01 then

ShowMessage('O computador está em rede!')

else

ShowMessage('O computador não está em rede!');

end;