Rede - saber se o micro esta em rede

function NetIsPresent: Boolean;

begin

  Result := GetSystemMetrics(SM_NETWORK) <> 0;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  if NetIsPresent then Caption := 'NET' else Caption := 'NOT NET';

end;

////////////// OTHER

// Saber se o Micro esta em Rede

  if GetSystemMetrics(SM_NETWORK) and $01 = $01 then ShowMessage('Rede encontrada');