TFORM10 TPF0TForm1Form1LeftTopWidthHeight(CaptionStCollection Example Font.Color clWindowText Font.Height Font.Name MS Sans Serif Font.Style PositionpoScreenCenterOnClose FormCloseOnCreate FormCreate PixelsPerInch` TextHeight TLabelLabel8LeftTopWidth&Height CaptionElementTLabelLabel1LeftTopWidthHeight CaptionFirstTLabelLabel2LeftTopWidthHeight CaptionLastTLabelLabel3LeftNTopWidthHeight CaptionAgeTButton CreateBtnLeft Top Width7HeightHintCreate MyCollectionCaptionCreateTabOrderOnClickCreateBtnClickTListBoxLB1Left Top3WidthHeightHintDblClk to remove selected item ItemHeight TabOrderOnClickLB1Click OnDblClick LB1DblClickTButtonClearBtnLeftITop Width7HeightHintClear collectionCaptionClearTabOrderOnClick ClearBtnClickTButtonPackBtnLeftTop Width7HeightHintPack collectionCaptionPackTabOrderOnClick PackBtnClickTButtonEffBtnLeftTop\WidthFHeightHintGet efficiencyCaption EfficiencyTabOrderOnClick EffBtnClickTEditEdit1Left4Top`Width1HeightHint0-100%TabStopReadOnly TabOrderTEditEdit3LeftTopWidthCHeightHintEnter 1..10 characters MaxLength TabOrderTEditEdit2LeftTopWidthHeightHintElement?TabOrderText0TButtonAtBtnLeftTop Width=HeightHint Get valueCaptionAtTabOrderOnClick AtBtnClickTButtonAtInsBtnLeftTop Width=HeightHint Insert valueCaption At InsertTabOrder OnClick AtInsBtnClickTButtonAtPutBtnLeftLTop Width=HeightHint Change valueCaptionAt PutTabOrder OnClick AtPutBtnClickTButtonDelBtnLeftTop1Width=HeightHintDelete first matchCaptionDeleteTabOrder OnClick DelBtnClickTButtonAtDelBtnLeftTop1Width=HeightHint Delete itemCaption At DeleteTabOrder OnClick AtDelBtnClickTButtonInsBtnLeftLTop1Width=HeightHint Insert at endCaptionInsertTabOrder OnClick InsBtnClickTEditEdit4LeftTopWidth_HeightHintEnter 1..15 characters MaxLengthTabOrderTEditEdit5LefthTopWidth#HeightHint Enter number MaxLengthTabOrderTButtonLoadBtnLeftTopWidth=HeightHintLoad from fileCaptionLoadTabOrderOnClick LoadBtnClickTButtonSaveBtnLeft*TopWidth=HeightHint Save to fileCaptionSaveTabOrderOnClick SaveBtnClick TOpenDialogOD1 DefaultExtcolFilter2*.col (Collection files)|*.col|*.* (All files)|*.*Left>Top TSaveDialogSD1 DefaultExtcolFilter2*.col (Collection files)|*.col|*.* (All files)|*.*Options ofOverwritePromptLeftbTop