L2PacketHack 3.5.x

[alexteam]

при добавлении пакета

if Dump.Count >= MaxLinesInPktLog then
    SavePacketLog;
......

пр-а SavePacketLog

procedure TfVisual.SavePacketLog;
var
SaveThis: TStringList;
begin
  if not assigned(dump) then exit;

  if ToolButton7.Down then
  begin
    AddToLog(rsSavingPacketLog);
    SaveThis := TStringList.Create;
    SaveThis.Assign(dump);
  end;
  Dump.Clear;
  ListView5.Items.BeginUpdate;
  ListView5.Items.Clear;
  ListView5.Items.EndUpdate;

  if ToolButton7.Down then
  begin
    if CharName <> '' then
      if SaveThis.Count > 0 then
        SaveThis.SaveToFile(PChar(ExtractFilePath(ParamStr(0)))+'logs\'+CharName+' '+AddDateTime+'.txt');
    SaveThis.Destroy;
  end;
end;

ToolButton7 - элемент №10
MaxLinesInPktLog задаеться в ини.
SaveThis создаеться для того чтобы в момент сохранения лога дамп уже был чистым. т.е. избегаю ошибок в предыдущих версиях пх связаных с сохранением пакетов.
есть ошибки ?