ошибка memo Опции

[Крастb]

редактирую данные в мемо. но выдает ошибку "constant is not correct type (тут то что ввjдил в memo)"
помогите пожалуйста разобраться в чем дело
вот код:

procedure TForm7.CheckBox4Click(Sender: TObject);
var f: string; i:integer;
begin
For i:=1 to datamodule3.Table9.RecordCount do
begin
DataModule3.Table6.RecNo:=i;
end;
f:= DataModule3.query3.FieldByName('Primechanie').AsString;
if DataModule3.table9.Locate('Primechanie',F,[])=True then
begin
DataModule3.Table9.Edit;
DataModule3.Table9.fieldbyname('Primechanie').value:=memo1.lines.text;
DataModule3.Table9.Refresh;
DataModule3.Query3.Close;
DataModule3.Query3.Open;
showmessage('Информация изменена!');
memo1.lines.Text:='';
datamodule3.Table9.Close;
datamodule3.Table9.Open;
exit;
end;
end;

[volvo]

Я тебе сказал, как надо добавлять, ты опять по своему. Ну, продолжай тогда сам, чего спрашиваешь и ответы игнорируешь?

Value - это Variant Откуда я знаю, какая у тебя Дельфи, что за хреновину ты обозвал DataModule, и какой к этому метод доступа. Какой тип поля 'Primechanie', в конце концов. Может туда строка просто НЕ ВЛЕЗЕТ??? Без ответа на эти вопросы восстановить картину невозможно, значит исправлять программу - тебе самому. Дерзай.