Wyrażenie regularne ?Błąd Delphi?Mój?Czy Komponentu?

mam taki kodzik ;P

   for l := 1 to 15 do
    begin
PgZr.zr.Text:= result;//result jest dobry
result1:= RegGal(PgZr.zr.Text,format('(>%d</a>.*)>%d</a>',[l,l+1]),1);
....
end;

i

function RegGal(Subject,Exp:string;Sbexp:integer):string;
begin
ogbot.expresion.Subject := Subject;
ogbot.expresion.RegEx := Exp;
if ogbot.expresion.Match = true then
result := ogbot.expresion.SubExpressions[sbexp]
else result := '';
end;

I problem polega na tym że wyrażenia nie działają, nie chce znaleźć SubExpressiona, a np. w TexRegExp wszystko działa
Tu jest result

1
Tu jest dużo stringu więc go usunąłem...,
2

Jak widać wyrażenie regularne dobre zrobiłem, funkcja na innych przypadkach działa dobrze...
A może to wina Kompnenty ja mam TperlReg  ----->/perl/

Dzięki za masę wskazówek i rozwiązać ;P
Jednak dobrze mysłałem była to wina komponentu i zainstalowałem nowy ;)
teraz działa, oczywiście z innym kodem