用INDY判断网页是否存在

function TForm1.webexists(s:string):boolean;
begin
  result:=false;
  try
    IdHTTP1.Head(s);
    if pos('200 OK', IdHTTP1.Response.ResponseText)<> -1
    then    result:=true;
  except
  end;
end;