[Помогите!] Ошибки при парсинге

[MastaDan]

Всем приветос.
Столкнулся с ошибкой.
Ввожу ссыль в Edit и парсю текст в memo. Если текста нет то выводит в memo "Не найдено" Но при парсинге вылазит кучу ошибок.
Вот код:

begin
Memo2.Clear;
try
Source.Text:=IdHTTP1.Get(Edit2.Text);
begin
Memo2.Text:=('Инфа: '+Pars('</script>',Source.Text,'title='));
end;
except
 Form1.Memo2.Lines.Add('Не найдено!');
end;
end;

Капец опять где то накосипорил... и вот сижу туплю.
Как правильно сделать что бы если нет текста то "Не найдено"...

Добавлено через 6 минут
Если он текст находит то ошибок нет.
Ошибки появляются когда текст не найден.

[MarrakeSH]

begin
Memo2.Clear;
try
Source.Text:=IdHTTP1.Get(Edit2.Text);
if length(Pars('</script>',Source.Text,'title='))>0 then
Memo2.Text:=('Инфа: '+Pars('</script>',Source.Text,'title='))
else
Form1.Memo2.Lines.Add('Не найдено');
except
 Form1.Memo2.Lines.Add('Ошибка');
end;
end;