Delphi Segment7 Shape Component