Создание проги, которая выдает данные из файла

[Rusl92]

Здравствуйте, у меня такой вопрос: есть файл statistic.txt
там содержится такая информация:
[14:35:42] Ученик Rus из 11 класса вошёл.
[14:35:48] Ученик Rus из 11 класса ошибся в задании 1.

Нужно, чтобы прога считывала информацию из этого файла каждые 5 секунд и писала в лабел новые строки- (информация в него добавляется в режиме он-лайн {ученики выполняют задания, по локальной сети отсылаются такие сообщения и сохраняются })
Буду использовать таймер, как добавлять именно НОВЫЕ строки в лабел (создавать массив что ли ), или можете предложить лучший способ, чтобы учительница видела, что сделали ученики В ДАННЫЙ МОМЕНТ!

[NikLik]

Будут ли с самим файлом происходить какие-либо изменения? Кроме, разумеется, добавления новых строк).
Например, будет ли он очищаться при достижении опр. размера?
И почему надо использовать именно Label?

procedure TForm1.FormCreate(Sender: TObject);
begin
  memo1.Clear;
  memo1.Color := clBtnFace;
  memo1.BorderStyle := bsNone;
  memo1.ReadOnly := true;
  memo1.Font.Style := [fsBold];
  memo2.Visible := false;
  memo2.Clear;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  sl: TstringList;
  i: integer;
begin
  sl := TStringList.Create;
  sl.LoadFromFile('statistic.txt');
  if (memo2.Lines.Count = 0) and (sl.Count > 0) then
  begin
    memo2.Lines.Add(sl[0]);
    memo1.Lines.Add(sl[0]);
    for i := memo2.Lines.Count to sl.count-1 do
    begin
      memo1.Lines.Add(sl[i]);
      memo2.Lines.Add(sl[i]);
    end;
  end
  else begin
  if (memo2.lines.count < sl.count) then
  begin
    memo1.Clear;
    for i := memo2.Lines.Count to sl.count - 1 do
    begin
      memo1.Lines.Add(sl[i]);
      memo2.Lines.Add(sl[i]);
    end;
  end;
  end;
  sl.Free;
end;

Используется Memo...Просто кинь их две штуки на форму.

P.S. проблемы могут возникнуть, если кто-нибудь во время считывания инфы из файла ( sl.LoadFromFile('statistic.txt')) попытается его открыть для записи либо же кто-то не успеет его зыкрыть при этом же действии.

[FaTaL]

А просто грузить файл например в ListBox не канает чтоли?

[Rusl92]

да, просто гружу в листбокс!