if SysJournalUpdateList.Count > 0 then
  begin
    StealthForm.SystemJournalMemo.Lines.BeginUpdate;

    k := SysJournalUpdateList.Count;
//    if k > 100 then
//      k := 50;

    if StealthForm.SystemJournalMemo.Lines.Count > 100 then
      for n := 1 to k do
        StealthForm.SystemJournalMemo.Lines.Delete(0);

    StealthForm.SystemJournalMemo.Lines.AddStrings(SysJournalUpdateList.ToArray);
    SysJournalUpdateList.Clear;
    StealthForm.SystemJournalMemo.Lines.EndUpdate;
    {Перетягиваем ползунок сисжурнала в самый низ}
    mes.Msg := WM_VSCROLL; // WM_HSCROLL
    mes.ScrollCode := SB_BOTTOM;
    mes.Pos := 0;
    mes.ScrollBar := 0;
    if AppTerminated then
      Exit;
    StealthForm.SystemJournalMemo.Dispatch(mes);
    if StealthForm.SystemJournalMemo.Lines[StealthForm.SystemJournalMemo.Lines.Count] = '' then
    begin
      StealthForm.SystemJournalMemo.ReadOnly := False;
      PostMessage(StealthForm.SystemJournalMemo.handle, WM_KEYDOWN, 8, 1);
      StealthForm.SystemJournalMemo.ReadOnly := True;
    end;
  end;