Скоростное чтение постоянно дописываемого текстового файла

[GunShot]

Мне требуется считывать информацию из лог файла мультиплеерной игры для отправки статистики игроков на сайт. Это текстовый файл размером до десятков мегабайт. ПРОБЛЕМА в том что при чтении этого файла игра притормаживает - это не допустимо.
Вот мой код:

before timer start i do:

assignfile(f,"multiplayer.log");
filemode:=FmOpenRead or FmDenyShareNone;
str:=tstringlist.create;
timer2.interval:=5;
[...]


str:tstringlist;

procedure TForm3.Timer2Timer(Sender: TObject);
var s:string;
i:integer;
begin

for i:=0 to 100 do
begin
if(not eof(f)) then
begin
readln(f,s);
if(szukaj(s)<>'')then str.Add(szukaj(s));
end;
end;
application.ProcessMessages;
end;