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

[Пепел Феникса]

это текст который выделен.

[hacknet]

код то что нужно, но мне нужно сделать словарь слов которые будут искаться в первой строчке, а не одно слово, помогите кодом? спасибо

procedure TForm1.Button1Click(Sender: TObject);
var
Find :string; // Искомая строка
i:integer;
begin
find:=edit1.Text; // Записываем в find текст из Edit
For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки
If Pos(FIND, Memo1.Lines[0])<>0
Then
showmessage('слово есть')
else
memo1.Clear;
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines[0])-1;
Memo1.SelLength:=Length(FIND);
End;
end;