procedure TWPCustomRtfEdit.SetOuterCellBorders(Activate: Boolean; BorderWidth: Integer = -1);
aPar.ASet(WPAT_BorderWidthT, WPBRD_BorderWidthTranslate[typ]);
should be
aPar.ASet(WPBRD_BorderWidthTranslate[typ],BorderWidth);
#1
♥ 0