delphi 如何实现采集一个网页

delphi 如何实现采集一个网页
求一个采集的例子 
看了几个源码 其中几个地方不明白豆丁网
function TForm1.GetStr(StrSource,StrBegin,StrEnd:string):string;
var
in_star,in_end:integer;
begin
in_star:=AnsiPos(strbegin,strsource)+length(strbegin);
in_end:=AnsiPos(strend,strsource);
result:=copy(strsource,in_sta,in_end-in_star);
end;in_sta,in_end-in_star  都没定义 他是怎么用的 
s:=copy(re,pos('<td width="100" align="left">',re)+29,99999);
/// +29意思就是前规律的字符数（可以用我提供的软件查）  99999是规律中的截取数据字符。
s:=copy(s,1,pos('</td>',s)-1);
s:=stringreplace(s,'&nbsp;',' ',[rfReplaceAll]);
Label1.Caption:='综合排名:'+s;          /// s 就是我们截取到的内容
 
cpoy
  后面加的 2999999是什么意思 求 详解的delphi采集 代码