求救－－如何从字符串中提取出这样的子字符串？(100分)

//字符串
<td align=middle>{$ShowLogo(180,60)}</td>
<td align=middle>{$ShowLogo(280,160)}</td>
<td align=middle>{$ShowBanner(580,60)}</td>

//要求
1,从上字符串中　查找　ShowLogo,ShowBanner　函数名子字符串,如果存在，就返回完整函数形式
如:依次查找　ShowLogo,ShowBanner
[h1]返回 {$ShowLogo(180,60)} 字符串
返回 {$ShowLogo(280,160)} 字符串
返回 {$ShowBanner(580,60)}[/h1] 字符串

procedure TForm1.Button1Click(Sender: TObject);
var
str : string;
begin
str := '<td align=middle>{$ShowLogo(180,60)}</td>';
if (Pos('ShowLogo', Str) > 0) or (Pos('ShowBanner', Str) > 0) then
ShowMessage( Copy(Str, Pos('{', Str), Pos('}', Str) - Pos('{', Str) + 1));
end;

<td align=middle>{$ShowLogo(180,60)}</td>
<td align=middle>{$ShowLogo(280,160)}</td>
<td align=middle>{$ShowBanner(580,60)}</td>是一个字符串,可以查找 {$ShowLogo等,就是参数不能确定查找