[StudentMarat]

Помогите решить задачу. Вот пока до чего додумался.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to memo1.Lines.Count do
if edit1.Text = memo1.Lines[i] then
begin
MessageDlg('Это слово уже есть в тексте Memo!',mtInformation,[mbOk],0);
Exit; // выход из процедуры обработки события
end;
Memo1.Lines.Add(edit1.Text);
end;  

А вот сама задача
В редактор Memo исходно вводится текст из нескольких строк. В отдельное окно вводится слово. Программа определяет, есть ли это слово в тексте. При положительном исходе на метку выводится номер строки и номер слова. При отсутствии слово добавляется в конец текста в редакторе. Линейка прокрутки задает минимальное количество строк в редакторе. Запуск анализа - кнопка.