I guess this is the best that can be done?
procedure TFmant.btn1Click(Sender: TObject);
var V:TImageEnVect;
begin
inherited;
// need to create a temp TImageEnVect in order not to touch the ImageEnDBVect1 that is link to a table
v:=TImageEnVect.create(Self);
Try
v.Assign(ImageEnDBVect1);
v.CopyObjectsToBack(True);
v.RemoveAllObjects;
v.Update;
v.io.SaveToFile('c:\pic.jpg');
Finally
v.free;
End;
end;