Исходные данные

var
...
begin
  ...
  Log.First();
  k = 0;
  // Цикл по записям лога
  while not Log.EOF() do
  begin
    // Если текущую работу выполнил наш пользователь