проблема с парсингом

[Pein95]

function isauth(memo:tmemo):boolean;
var
res:string;
bg,en:integer;
i:integer;
begin
bg:=0;
for i := 0 to memo.Lines.Count-1 do
begin
  bg:=posex('<noscript>',memo.Lines.Strings[i]);
end;

if bg<>0 then result:=true
else result:=false;

end;

ну собственно вот код...
дело в том, что я уверен что в memo есть строка которая содержыт "<noscript>"
Но мне почемуто всегда возвращаетса false?
Зарание спасибо за помощь)

[Аватар]

begin
Result:=False;
for i := 0 to memo.Lines.Count-1 do
begin
  Result:=posex('<noscript>',memo.Lines.Strings[i])>0;
  if Result then Exit;
end;
end;

или

begin
  Result:=posex('<noscript>',memo.Lines.Text)>0;
end;

[Pein95]

спс)) работает)

[Johnson]

А ещё я бы посоветовал при сравнении не забывать про LowerCase(); или UpperCase();