Распарсить html блок

[nibufep]

Есть 2 вида блоков на сайте

1:

<div class="custom-poster" style="background:lightgreen">
<a href="http://">
<img src="http://" />Текст
</a>

2:

<div class="custom-poster" >
<a href="http://">
<img src="http://" />Текст
</a>

Мне нужно получить "Текст" но только из тех блоков где у div style="background:lightgreen"

пробовал написать регулярку:

lightgreen">(.*?)src="(.*?)>(.*?)</a>

но она не хочет работать....

[SQLPowerUser]

procedure TForm1.Button1Click(Sender: TObject);
var
  html_text, s: string;
  p: Integer;
begin
  html_text := '<div class="custom-poster" style="background:lightgreen"> ' +
  '<a href="http://"> ' +
  '<img src="http://" /> Текст ' +
  '</a> </div>';

  p := Pos('background:lightgreen',html_text);
  if  p = 0 then exit;

  html_text := copy(html_text, 1, Pos('</a>',html_text)-1);
  s := '';

  for p := Length(html_text) downto 1 do
    if html_text[p] <> '>' then s := html_text[p] + s else break;

  Memo1.Text := Trim(s);
end;