procedure THIHiLightMemo._work_doAdd;
begin
  if not (oeReadOnly in Options) then
  begin
    if _prop_AddType = 0 then
      InsertLine(Count, ReadString(_Data, _data_Str, ''), true)
    else
      InsertLine(0, ReadString(_Data, _data_Str, ''), true);
    Focused_CaretToView;
  end;
end;