function IsIPInstalled : boolean;
  var
  ppe : PProtoEnt;
  WSData : TWSAData;

begin
  Result:=true;
  if WSAStartup(MakeWord(1,1),WSData)=0 then
  begin
    ppe:=GetProtoByName('IP');
    if ppe=nil then
      Result:=false;
  end;
  WSACleanup;
end;