TControlBorderSpacing

pl 

OnChange

TPersistent

TObject