用一个nmhttp1控件:这是我的一个程序给你了
nmhttp1.Get('http://women.sohu.com/xingzuo/c.php?type='+typ+'&yyear='+year+'+&mmonth='+month+'&dday='+day+'');
content:=nmhttp1.Body;
k:=pos('今日运势',content);
content:=copy(content,k,length(content));
tmp:='<font color="#003300">';
startpos:=pos(tmp,content)+length(tmp);
content:=copy(content,startpos,length(content));
endpos:=pos('</font>',content)-1;
content:=copy(content,1,endpos);
memo1.Lines.Add(content);