[Bloo]

Здравствуйте!
Вот есть две формы. В Form1 в Memo загружаем текстовый файл, нажимаем на кнопку и открывается Form2.
При нажатии на кнопку в Form2 осуществляется поиск по тексту, загруженному в Form1.Memo1 и выводится в Form2.Memo1.
Безимени-3.jpg
В общем, нужно, чтоб выводились все строки после 'Comments:', но у меня в коду выводится только та строка, которая находится в той же строке, что и 'Comments:'.
Помогите пожалуйста исправить, буду очень благодарна! ^___^

Код:

procedure TForm2.Button2Click(Sender: TObject);
var i:integer;
    s:string;
begin
for i:=0 to Form1.Memo1.Lines.Count-1 do
if Pos('Comments:', Form1.Memo1.Lines.Strings[i])<>0 then
begin
s:=Form1.Memo1.Lines.Strings[i];
delete(s,1,pos(' ',s));
Memo1.Lines.Add(s);
end;
end;