object MsgDlg: TMsgDlg Left = 558 Top = 111 BorderStyle = bsDialog Caption = 'Message To Send' ClientHeight = 300 ClientWidth = 387 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 0 Top = 0 Width = 387 Height = 258 Align = alTop Style = bsRaised end object Label1: TLabel Left = 9 Top = 10 Width = 39 Height = 16 Caption = 'Subject:' end object OKBtn: TButton Left = 227 Top = 269 Width = 75 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 0 end object CancelBtn: TButton Left = 307 Top = 269 Width = 75 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object txtSubject: TEdit Left = 55 Top = 5 Width = 326 Height = 21 TabOrder = 2 end object txtText: TMemo Left = 6 Top = 30 Width = 375 Height = 196 Lines.Strings = ( '') ScrollBars = ssBoth TabOrder = 3 WordWrap = False end object Button1: TButton Left = 13 Top = 231 Width = 75 Height = 21 Caption = '&Open...' TabOrder = 4 OnClick = Button1Click end object Button2: TButton Left = 96 Top = 231 Width = 81 Height = 21 Caption = '&Save As...' TabOrder = 5 OnClick = Button2Click end object openText: TOpenDialog FileEditStyle = fsEdit Filter = 'All files (*.*)|*.*|Text files (*.txt)|*.txt' InitialDir = '.' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Select text file...' Left = 41 Top = 198 end object dlgSave: TSaveDialog DefaultExt = 'txt' FileEditStyle = fsEdit Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*' InitialDir = '.' Options = [ofOverwritePrompt, ofHideReadOnly] Title = 'Save as text file...' Left = 122 Top = 196 end end