получилось!
Может кому пригодится
Запрос
Код:
Update Tovar
set Foto=:f
Where IDtovar=:T
Указал в свойстве параметра "f" тип ftblob
и потом:
Код:
if OpenPD3.Execute then
begin
DataModule2.UFoto.Close;
DataModule2.UFoto.Parameters.ParamByName('T').Value:= Strtoint (DBEdit4.Text);
DataModule2.UFoto.Parameters.ParamByName('f').LoadFromFile(OpenPD3.FileName,ftblob);
DataModule2.UFoto.ExecSQL;