Delphi 　Segment7 Shape Component