Попробовал использовать BLOB поле для хранения и IMAGE на форме для отображения картинки
Добавил две кнопки "Добавить" "Стереть"

Код кнопки "Добавить"

myfoto=GETPICT()
IF !EMPTY(myfoto) AND FILE((myfoto))
replace user.foto WITH FILETOSTR(myfoto)
= TABLEUPDATE(.T.)
thisform.image1.PictureVal= user.foto
thisform.Refresh()
ENDIF

Код кнопки "Стереть"

replace user.foto WITH ""
= TABLEUPDATE(.T.)
thisform.image1.PictureVal=""
Thisform.Refresh()

Код кнопки "Добавить" нормально отрабатывает, т.е загружает картинку и показывает,
а код кнопки "Стереть" вроде бы отрабатывает, но форму закрываю, открываю снова
и картинка как будто и не стиралась, что может быть и как правильно очистить BLOB поле
от содержимого

замечания по существу, но проблема не решилась, картинка не удаляется

Пробовал так

SELECT user
APPEND MEMO user.foto FROM tempfile.txt OVERWRITE
* replace user.foto WITH ""
= TABLEUPDATE(.T.)
thisform.image1.PictureVal=""
Thisform.Refresh()

Думая что BLOB поле это аналог MEMO и нужна команда
APPEND MEMO user.foto FROM tempfile.txt OVERWRITE
где tempfile.txt файл 0 длины включенный в проект
код отрабатывает, но картинка из BLOB не удаляется
Кто знает что надо сделать?

Спасибо, заработало так

SELECT user
replace user.foto WITH ''
= TABLEUPDATE(.T.)
thisform.image1.PictureVal=""
Thisform.Refresh()

Проблема была в том что записал
replace user.foto WITH "" - двойные кавычки не удаляли
replace user.foto WITH '' - одинарные, все стерлось

Ну вот и так и так правильно и работает,
replace user.foto WITH ""
replace user.foto WITH ''

Проблема оказалась в другом, с показом картинки показывалась одна запись
а картинка отображалась от предыдущей или не обновлялась текущая
гдето я с refresh формы чтото перепутал,

А с картинкой в BLOB поле оказалось легко работать... ;-)][

Все заработало, привожу код

Свойство объекта Image.Stretch = 2 – Stretch

В Init формы добавляем код

IF !EMPTY(user.foto)
Thisform.Image1.PictureVal = user.foto
Thisform.Image1.Visible = .T.
ELSE
Thisform.Image1.PictureVal = ""
Thisform.Image1.Visible= .F.
ENDIF

Кнопка “добавить” изображение

myfoto=GETPICT()
IF !EMPTY(myfoto) AND FILE((myfoto))
SELECT user
replace user.foto WITH FILETOSTR(myfoto)
= TABLEUPDATE(.T.)
thisform.image1.PictureVal= user.foto
thisform.image1.visible= .T.
thisform.Refresh()
ENDIF

Кнопка “стереть” изображение

SELECT user
replace user.foto WITH ''
= TABLEUPDATE(.T.)
Thisform.Image1.PictureVal = ""
Thisform.Image1.Visible= .F.
Thisform.Refresh()

Код метода Click кнопок движения по базе (cmdPrev,cmdNext,cmdTop,cmdEnd)
добавить код

DODEFAULT()
IF !EMPTY(user.foto)
Thisform.Image1.PictureVal = user.foto
Thisform.Image1.Visible = .T.
ELSE
Thisform.Image1.PictureVal = ""
Thisform.Image1.Visible= .F.
ENDIF
Thisform.Refresh()

Ну и не забывать делать PACK MEMO если часто будете добавлять, удалять
картинки в поле, чтобы мемо файл не сильно распухал.