Add(MainForm,2953706,21,105)
{
 Height=435
 link(onCreate,5417955:doData,[])
}
Add(Memo,2656921,168,119)
{
 Top=60
 Width=184
 Height=336
 Align=1
 ModeSp=1
 ScrollBars=3
 ReadOnly=0
}
Add(DoData,5417955,70,119)
{
 Data=String(Всем привет. У меня вопрос. Почему нельзя добавить строку через точку doAdd, при включенном свойстве "Read only"?)
 link(onEventData,13293163:doEvent1,[])
}
Add(Hub,13293163,126,119)
{
 link(onEvent1,2656921:doAdd,[])
 link(onEvent2,5517991:doAdd,[(158,132)(158,181)])
}
Add(Label,1675127,42,28)
{
 Width=384
 Height=60
 Align=2
 Caption=""
 AutoSize=1
}
Add(HilightMemo,5517991,168,175)
{
 Top=60
 Width=200
 Height=336
 Align=5
 Font=[Courier New,8,0,0,1]
 ModeSp=1
 HilightFont=[Courier New,8,0,0,1]
 ReadOnly=0
}
Add(Label,12181541,91,28)
{
 Left=50
 Top=25
 Font=[MS Sans Serif,15,0,0,1]
 Caption="Memo"
}
Add(Label,5900665,133,28)
{
 Left=245
 Top=25
 Font=[MS Sans Serif,15,0,0,1]
 Caption="HilightMemo"
}

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;