AV error on Tshape property

[Andyk1234]

Produces an AV error when selecting Brush.Color value on a Tshape component.

Update: I have found in some instances, the object links to sub-properties get erased during the filling of the data grid, this produces AV errors when the sub property is edited in the Properties grid..

To fix this I have changed the order that the grids are filled.

In routines "UpdateCompsCombo" and "cbCompsChange" , change the lines

 UpdateProps;
 UpdateData;

to

  UpdateData;
  UpdateProps;