Перенос строки Memo

[hitman1234]

Здравствуйте.
На фомне 2 Мемо и Edit. В первом ввожу текст. После того ввожу слово в Edit,e. Нужно, чтобы В Memo1 находились строки с этим словом и переносились в Memo2.
Сделал вот что:
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
if (Memo1.Lines.Count > 0) and (Memo2.Lines.Count > 0) then
begin
Memo2.Lines.Clear;
for i:= 1 to Memo1.Lines.Count do
if Pos(edit1.Text, Memo1.Lines.Strings[i]) <> 0 then
Memo2.Lines.Add(Memo1.Lines.Strings[i]);
end;
end;
Что я делаю не так ?

[ИринаForeve]

Ошибка:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
if (Memo1.Lines.Count > 0) then
begin
Memo2.Lines.Clear;
for i:= 1 to Memo1.Lines.Count do
if Pos(edit1.Text, Memo1.Lines.Strings[i]) <> 0 then
Memo2.Lines.Add(Memo1.Lines.Strings[i]);
end;
end;

Второе поле не нужно проверять на содержание (оно же может быть и пустым, разве нет?).
Но нужно учесть что если предложение будет на две строки, и в нем искомое слово, то перенесется только часть предложения.

[hitman1234]

Спасибо, а как сделать так, чтобы переносилось всё предложение, если предложение на 2 строки или больше

[ИринаForeve]

Если в задании ничего по этому поводу не сказано, то просто установить формат ввода в виде сообщения, допустим разместить метку над полем, его в свою очередь сделать пошире, на сколько возможно, а в метке написать "Каждое предложение вводить в одну строку, новое предложение через "Enter" с новой строки".
Либо добавлять поиск точки в предложение, тогда тоже устанавливать формат ввода, что в конце предложения обязательно ставить точку...
в общем то вариантов решения много, но нужно отталкиваться от задания.

[Serge_Bliznykov]

попробуйте так:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
  Memo2.Lines.Clear;
  for i:= 0 to Memo1.Lines.Count-1 do
       if Pos(edit1.Text, Memo1.Lines[i]) > 0 then
               Memo2.Lines.Add(Memo1.Lines[i]);
end;

p.s. ваши ошибки: не надо чистить Memo2 в цикле
и строчки в Memo нумеруются от нуля.
индекс первой - 0
индекс последней, соответственно Memo1.Lines.Count-1