Вызов и поиск по Memo

[Dieria]

Доброго времени суток. Помогите с реализацией "Справки"
Я на каждую из форм программы кинул кнопку. В MainMenu1 создал форму при вызове которой открывается форма с Memo. Мне нужно написать процедуру поиска для кнопки, так что бы при нажатии кнопки открывалась форма с Memo и курсор позиционировался на необходимой информации.

Я написал вот такую процедуру, форма открывается, но курсор не позиционируется на слове "Можно". Как решить эту проблему?
procedure TfrReturn.frReceiptFooterbbtnHelpCl ick(Sender: TObject);

var // Объявляем переменные
Find:string; // Искомая строка
i:integer; // Счетчик для цикла
begin
WfrSpravka.frSpravka.ShowModal;
find:='Можно'; // Записываем в find текст из Edit
For i:=0 to Memo1.Lines.Count-1 do // Запускаем цикл поиска строки
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
frSpravka.Spravka1.SetFocus();
frSpravka.Spravka1.SelStart:=Pos(FI ND,Memo1.Lines.Text)-1;
frSpravka.Spravka1.SelLength:=Lengt h(FIND);
End;

Заранее благодарю.

[Аватар]

А чего ему позиционироваться? Все, что после ShowModal отработает после прекращения работы с формой

[Dieria]

Сообщение от Аватар

А чего ему позиционироваться? Все, что после ShowModal отработает после прекращения работы с формой

А как сделать так. Что бы нажатием кнопки на одной форме открывалась другая форма (с Мемо) и по ней велся поиск?

[Аватар]

В OnShow (или OnActivate, по-моему для модальной пойдет) формы попробуйте это сделать

[Dieria]

Сообщение от Аватар

В OnShow (или OnActivate, по-моему для модальной пойдет) формы попробуйте это сделать

WfrSpravka.frSpravka.OnActivate; или WfrSpravka.frSpravka.OnShow;
Вы так имели ввиду? Если да, то не работает, выдает ошибку.

[Аватар]

Если да, то не работает, выдает ошибку

Если выдает ошибку - ищи её и исправь