Bei wachsendendem Logfile auf bestimme Zeile reagieren

[Ajintaro]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const SearchString = 'Delphi ist: ';

var MyTextFileContent : TStringList;
    i : Integer;
    tempStr : String;
begin
  MyTextFileContent := TStringList.Create;
  try
    MyTextFileContent.LoadFromFile(e_logpath.Text);
  except
    Showmessage('Motz, kreisch');
    MyTextFileContent.Free;
    exit;
  end;
  for i := 0 to MyTextFileContent.Count -1 do
    if pos(SearchString,MyTextFileContent[i]) <> 0 then
    begin
      tempStr := MyTextFileContent[i];
      delete(tempStr,1,pos(SearchString,MyTextFileContent[i])+ length(SearchString)-1);
      showmessage('gefunden in Zeile ' + Inttostr(i +1));
      MyTextFileContent.Free;
      exit;
    end;
  MyTextFileContent.Free;
end;

Damit finde ich das 1. Vorkommen meines Suchstrings. Aber um das neuste Vorkommen des Suchstrings zur Laufzeit zu ermitteln ist fuer mich noch nicht loesbar.