怎么查找TStrings中指定字符串的行目

如何查找TStrings中指定字符串的行目
如何查找TStrings中指定字符串的行目

[解决办法]
写循环判断
procedure TForm1.Button1Click(Sender: TObject);
var s:TStringList;
i:integer;
begin
s:=TStringList.Create;
s.Add( 'aaaaaaa ');
s.Add( 'dddddddddd ');
s.Add( 'ccccccccc ');
s.Add( 'ggggggggg ');
for i := 0 to s.Count-1 do
begin
if Pos( 'gg ',s[i])> 0 then
begin
ShowMessage(inttostr(i));
break;
end;
end;
end;