Поиск с помощью regexp в memo

[Кирилл12345]

Здравствуйте, уважаемые участники форума! Столкнулся с проблемой, которую никак не могу решить.

Суть проблемы:

Есть логи игрового сервера, из них нам надо вытащить событие убийства игрока другим игроком.
Событие выглядит так: Player ИМЯ_Игрока_убийцы was killed by Имя_игрока_жертвы at a distance ДИСТАНЦИЯ m with weapon ОРУЖИЕ

Пробовал делать так:
Программа подгружает лог в memo, и ведет поиск

 r := TRegExpr.Create;
  r.InputString := sMemo2.Text;
  r.Expression := 'Player (.*?) was killed by (.*?) at a distance (.*) with weapon (.*)';
  if r.Exec then
  begin
    result1 := r.Match[1];
    smemo1.text := (result1);
  end else
    showmessage('Не найдено');

Но в итоге в другом memo у нас весь лог сервера до нужного нам события, которое заканчивается только на словах Player Имя_Убийцы и все. На этом поиск завершается, хотя в логе еще больше таких вот событий.

Помогите пожалуйста решить данную проблему, и как избавиться от лишнего в начале, а вносить только данную строку в результат?

[Antony41]

Загрузить всё в TStringList, затем в цикле построчно используя функцию Pos производить поиск

[Кирилл12345]

Сообщение от Antony41

Загрузить всё в TStringList, затем в цикле построчно используя функцию Pos производить поиск

А с помощью функции Pos можно сделать такой шаблон поиска?

[Antony41]

Сообщение от Кирилл12345

А с помощью функции Pos можно сделать такой шаблон поиска?

Если вы имеете ввиду маску (*.*), то нет, а зачем?

[Кирилл12345]

Сообщение от Antony41

Если вы имеете ввиду маску (*.*), то нет, а зачем?

Ну смотрите, надо с помощью поиска отсеивать Имя_убийцы и Имя_Жертвы в memo, для этого как раз и нужна маска. Ну или я вас не понял

[min@y™]

дай файл лога.

[Antony41]

Лог выложи попробую помочь

[Кирилл12345]

Сообщение от min@y™

дай файл лога.

Часть лога http://pastebin.com/PNxHxSmd
Весь лог http://rghost.ru/7HGG9nmM4

[Antony41]

Так?

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  I: Integer;
begin
  SL := TStringList.Create;
  try
    if OD1.Execute then
      begin
        SL.LoadFromFile(OD1.FileName);
        if SL.Count = 0 then
          Exit;
        for I := 0 to SL.Count - 1 do
          begin
            if Pos('killed a', SL.Strings[i]) > 0 then
              Memo1.Lines.Add(SL.Strings[i]);
          end;
      end;
  finally
    SL.Free;
  end;
end;

[Кирилл12345]

Сообщение от Antony41

Так?

procedure TForm1.Button1Click(Sender: TObject);
var
  SL: TStringList;
  I: Integer;
begin
  SL := TStringList.Create;
  try
    if OD1.Execute then
      begin
        SL.LoadFromFile(OD1.FileName);
        if SL.Count = 0 then
          Exit;
        for I := 0 to SL.Count - 1 do
          begin
            if Pos('killed a', SL.Strings[i]) > 0 then
              Memo1.Lines.Add(SL.Strings[i]);
          end;
      end;
  finally
    SL.Free;
  end;
end;

Благодарю, данный код уже ближе к истине