function IsInternetConnected: Boolean;
begin
   Result := GetSystemMetrics(SM_NETWORK) and 3 = 3;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if IsInternetConnected then
      ShowMessage('Сетевая карта присутствует');
end;