поиск слова в memo

[Bionic]

здравствуйте. столкнулся с такой проблемой: нужно найти слово (введенное в edit) в memo(можно richedit) и после его нахождения вывести в label всю строку где оно находится(если встречается в 2 строчках то 2 строчки вывести)
ссылка на программу внизу. буду очень признателен если поможете сегодня(завтра экзамен сдавать и эту программу надо показать)

[Mad_Cat]

For i:=0 to Memo1.Lines.count-1 do
if Pоs(edit1.text,Memo1.Lines[i])<>0 then label.caption:= label.caption+Memo1.Lines[i]+#13#10;

[Bionic]

Сообщение от Mad_Cat

For i:=0 to Memo1.Lines.count-1 do
if Pоs(edit1.text,Memo1.Lines[i])<>0 then label.caption:= label.caption+Memo1.Lines[i]+#13#10;

Спасибо огромное все заработало