从TXT资料中查找某个字符串，字符串不固定

从TXT文件中查找某个字符串，字符串不固定。
TXT文件中的部分内容：
第一章 总则
{第一条}....
{第二条}....
{第三条}....
...

如何查找{}中的值并赋给下拉列表框？
------解决方案--------------------------------------------------------
{第一条.... }
{第二条....} 
{第三条....} 
... 
s:=Memo1.Lines.Text;



  for I := 1 to Length(s) do
    if s[i]='{' then
      ComboBox2.Items.Add('第'+IntToStr(ComboBox2.Items.Count+1)+'条');
  end;