定位tstringlist的行号 ( 积分: 100 )

我用i:=pos('substring',stringlist.text);得到了'substring'在stringlist.text里的字符级的位置i,现在我怎么得到'substring'所在的行呢?
比如stringlist的内容如下
abasfsgfgdfg
sdfgreretret
sdfsubstringsdfasfsd
sdfsdfsfsdfdsf
sdfdsfdsfdsf
我得到i是29,我怎么得到'substring'所在的行是多少呢?

for i:=0 to stringlist.Count - 1 do
begin
if pos('substring', stringlist.Strings) > 0 then
begin
result := i; // 行定位, 0=第一行
break;
end;
end;

接受答案了.