UpdateData - if data changed, save new picture
Source position: dbctrls.pp line 1000
protected procedure TDBImage.UpdateData(
Sender: TObject
); virtual;