Выделить первое найденное совпадение в memo

[Kara1989]

Здравствуйте, уважаемые программисты!
У меня к вам есть такой вопрос
В форме расположены Edit1, Memo1 (текст в Memo1 будет загружаться с определенного файла)
Надо теперь сделать так, чтобы программа находила слово или словосочетание, написанной в Edit1, в Memo1. Выделяя тем самым найденное слово в Memo1
Заранее спасибо!

[Человек_Борща]

1. поиск по форуму
2. поиск по гуглу
3.
Все просто:
Функция Pos

[Valio]

Выделяя тем самым найденное слово в Memo1

Что значит выделяла?

[_Engine_]

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

Что значит выделяла?

Это значит выставить SelStart/SelEnd

[MyLastHit]

Это значит выставить SelStart/SelEnd

помоему там не selend, а sellength. Могу ошибаться.

[_Engine_]

может быть, я по памяти писал

[Valio]

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

Это значит выставить SelStart/SelEnd

А если искомых слов несколько, как тогда выделять?
А если автор хотел выделять например красным цветом или ещё чтото. Тогда нужно использовать RichEdit.
Я хотел просто уточнить этот момент хотя Мемо и Рич взаимозаменяемы и никаких проблем переделка бы не вызвала.

Ну а так да: SelStart, SelLength, функция Pos.

[Kara1989]

если в тексте будет найдено несколько совпадений, просто выделить первую из них
с помощью обработчика Edit1OnChange получится сделать?

код приблизительно такой (еще в обработке):

var
Find:string;
i:integer;
begin
find:=Edit1.Text;
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
End;
end;

[Valio]

Ну примерно так. Ошибки по мелочи:

Memo1.Lines.Text -> Memo1.Text
Memo1.SetFocus() -> Memo1.SetFocus

[Winnerer]

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

Ошибки по мелочи:

Memo1.Lines.Text -> Memo1.Text
Memo1.SetFocus() -> Memo1.SetFocus

и в чём же разница?