object FormRecord: TFormRecord Left = 639 Height = 649 Top = 223 Width = 858 Caption = 'Record' ClientHeight = 649 ClientWidth = 858 DesignTimePPI = 144 OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow Position = poMainFormCenter LCLVersion = '2.2.2.0' object Panel1: TPanel Left = 4 Height = 583 Top = 4 Width = 850 Align = alTop Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 4 BevelOuter = bvNone TabOrder = 0 end object ButtonOk: TButton Left = 759 Height = 25 Top = 603 Width = 75 Anchors = [akRight, akBottom] Caption = 'Ok' ModalResult = 1 TabOrder = 1 end object ButtonCancel: TButton Left = 648 Height = 27 Top = 603 Width = 72 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 TabOrder = 2 end object ActionList1: TActionList Images = Core.ImageList1 Left = 423 Top = 379 object ASave: TAction Caption = 'Save' OnExecute = ASaveExecute end object ACancel: TAction Caption = 'Cancel' OnExecute = ACancelExecute end end end