ошибка 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;