Memo Delphi

[StudentMarat]

Помогите решить задачу, не могу додуматься! Вот задача

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

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;

[Xatr]

чтобы посмотреть текущую строку, нужно это:

'Line: '+inttostr(Memo1.Perform(EM_LINEFROMCHAR,-1, 0))

в данном случае только:

label1.caption:='Line: '+inttostr(i+1);

а текущее слово нужно считать...

[RUSt88]

есть подобная решенная задача, отдам за дешево

а так если совет, то в каждой строке мемо ищи слово из эдита
слово находится как массив символов до пробела\точки etc

[StudentMarat]

Пока вот до чего додумался

procedure TForm1.Button1Click(Sender: TObject);
var // Объявляем переменные
Find:string; // Искомая строка
b: integer;
begin
find:=Edit1.Text; // Записываем в find текст из Edit
b :=  Pos(FIND, Memo1.Lines.Text);
    If(b<>0) and (Memo1.Lines.Text[b-1] <> ' ') and (Memo1.Lines.Text[b+Length(FIND)] <> ' ')
      Then
        Begin
          ShowMessage('Такое слово есть');
          Memo1.SetFocus();
          Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
          Memo1.SelLength:=Length(FIND);
        End
    else
    Begin
      Memo1.Lines.Add(edit1.Text);
    end;
end;

Здесь получается, что когда я ввожу в Memo текст "Я болею за спартак" а в edit ввести слово "спарта" то да программа добавляет его в конец текста в редакторе как и положено по заданию. Ну а если в edit ввести слово "спартак" то программа даже и не выдает сообщение, что это слово есть в Memo добавляет его в конец редактора. Помогите это исправить Help me

[StudentMarat]

вот написал. Даже номер строки определяет, если слово есть. Не получается номер слова. Помогите

procedure TForm1.Button1Click(Sender: TObject);
var
PosIndex: Integer;

function SpacedWord(const A: string): string;
begin
Result :=Trim(A) + ' ';
end;
begin
PosIndex := Pos(SpacedWord(Edit1.Text), SpacedWord(Memo1.Lines.Text)) - 1;
if PosIndex >= 0 then
begin
ShowMessage('Такое слово есть');
label3.Caption:='Номер строки ' + IntToStr(memo1.CaretPos.y);
Memo1.SetFocus;
Memo1.SelStart := PosIndex;
Memo1.SelLength := Length(Edit1.Text);
end
else
Memo1.Lines.Add(Edit1.Text);
end;