Разрешение/запрещение дополнять строки в Memo

[StudentMarat]

Не могу додуматься! Подскажите! Вот сама задача!

В редактор Memo исходно вводится текст из нескольких строк. Флажок разрешает/запрещает дополнять строки в редакторе.

[evg_m]

что надо
1. полностью запретить ввод(редакцию) readonly
2. запретить редакцию всех строк кроме последней. carretpos onkeypress selstart
3. другой вариант ....

[StudentMarat]

К примеру вводим в редактор Memo 3 строки. А если поставим флажок (checked = True), то ввод следующей 4 строки невозможен! Если уберем флажок (checked = False), то ввод 4 строки возможен.

[grom333]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
memo1.Enabled:=false;
end;

[StudentMarat]

А если полностью запретить ввод(редакцию) readonly как предлагает evg_m то исходный код как будет выглядить?

[grom333]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
memo1.readonly:=true;
end;

жду плюса

[evg_m]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
memo1.readonly:=true;//здесь нет возврата в режим доступной редакции
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
memo1.readonly:=checkbox1.Checked;
end;

[StudentMarat]

С этим разобрался. Есть ещё одна задача.
В редактор Memo исходно ввводится текст из нескольких строк. В отдельное окно вводится слово. Программа определяет в тексте строку, которая содержит максимальное количество символов, принадлежащих слову. Эта строка выводится на кнопку, запускающую анализ.

[grom333]

evg_m, вы правы, я забыл кое-что добавить:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
memo1.readonly:=true else
memo1.ReadOnly:=false
end;

=========
StudentMarat, что значит в отдельное окно?

[StudentMarat]

т.е в редактор edit