Запросы на компоненты

[hack]

Добрый вечер уважаемые!
Возникла задача - ведение Log_a, вроде бы просто:

procedure TForm1.AddLog(LogString, LogFileName: string);
var 
  F: TFileStream; 
  PStr: PChar; 
  LengthLogString: integer;
 begin 
    LengthLogString := Length(LogString) + 2; 
    LogString := LogString + #13#10; 
    PStr := StrAlloc(LengthLogString + 1);
    StrPCopy(PStr, LogString); 
   if FileExists(LogFileName) then 
     F := TFileStream.Create(LogFileName, fmOpenWrite) 
  else 
     F := TFileStream.Create(LogFileName, fmCreate); 
     F.Position := F.Size; 
     F.Write(PStr^, LengthLogString); 
     StrDispose(PStr); 
     F.Free; 
 end;

AddLog((DateToStr(Date)+' '+TimeToStr(Time))+' '+'...Test...' ,extractfilepath(application.exename) + 'Log.log');

Ограничение по количеству строк нашел:

function TForm1.WriteLog(LogFileName, Log: string;
  StrLimit: Integer): Integer;
var
  F: TextFile;
  function CheckLogFile: Integer;
  var
    I, Diff: Integer;
    FStr: TstringList;
  begin
    FStr := TStringList.Create;
    FStr.LoadFromFile(LogFileName);
    Diff := 0;
    if FStr.Count > StrLimit then
    begin
      Diff := FStr.Count - StrLimit;
      AssignFile(F, LogFileName);
      Rewrite(F);
      for I := Diff to FStr.Count - 1 do
        WriteLn(F, FStr[i]);
      CloseFile(F);
    end;
    Result := FStr.Count - Diff;
    FStr.Free;
  end;
begin
  Result := 0;
  if StrLimit < 1 then
    Exit;
  try
    AssignFile(F, LogFileName);
    if FileExists(LogFileName) then
      Append(f)
    else
      Rewrite(F);
    WriteLn(F, Log);
    Closefile(f);
  except Exit;
  end;
  Result := CheckLogFile;
end;

WriteLog(ExtractFilePath(Application.ExeName) +'MyLog.log','...Test...',50)

В связи с тем, что в него пишутся ответы по SNMP - периодичность 100мс, хотелось бы иметь ограничение на размер 1,5-2,5 метров,а то log растет, паразит, как на дрожжах.
Попробовал JVCL_log - но увы размер в оперативке (при свернутой в трей программе) - через 20 минут работы приводит к экцепшену.
Прошу совета - либо кусок кода, либо ссылку на ПРОВЕРЕННЫЙ компонент.
Заранее спасибо.