RgnMarkingMode example for Delphi

Procedure TForm1.Test();
Begin
Lead1.RgnMarkingMode := mmRectangle;
   Lead1.RgnFrameType:= ftStatic;
End;