TPADO. Edit;
TPADO. FieldByName (' Dbarcode). AsString:=FieldByName (' Dbarcode). AsString;
TPADO. FieldByName (' DKINDNO). AsString:=FieldByName (' DKINDNO). AsString;
TPADO. FieldByName (' DKINDNAME). AsString:=FieldByName (' DKINDNAME). AsString;
TPADO. FieldByName (' DKINDNO2). AsString:=FieldByName (' DKINDNO2). AsString;
TPADO. FieldByName (' DKINDNAME2). AsString:=FieldByName (' DKINDNAME2). AsString;
TPADO. FieldByName (' DNAME). AsString:=FieldByName (' DNAME). AsString;
TPADO. FieldByName (' DUNITNAME). AsString:=FieldByName (' DUNITNAME). AsString;
TPADO. FieldByName (' DSPEC). AsString:=FieldByName (' DSPEC). AsString;
TempStream:=TMemoryStream. Create;
TBlobField (FieldByName (' DPICTURE).) SaveToStream (TempStream);
TempStream. Position:=0;
TBlobField (TPADO FieldByName (' DPICTURE). LoadFromStream (TempStream);
TempStream. Free;
TPADO. Post;

No error with the exception of the DPICTURE fields are updated the great god help