Пишем программу (в Delphi) для создания книг FB2

TabOrder = 1

OnClick = Button2Click

end

object Button5: TButton

Left = 128

Top = 24

Width = 25

Height = 25

Caption = '+'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = –19

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

TabOrder = 2

OnClick = Button5Click

end

end

end

object ListBox1: TListBox

Left = 265

Top = 41

Width = 441

Height = 348

Align = alClient

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = –11

Font.Name = 'Courier'

Font.Style = []

ItemHeight = 13

ParentFont = False

TabOrder = 2

OnClick = ListBox1Click

OnDblClick = ListBox1DblClick

end

end

object TabSheet4: TTabSheet

Caption = 'End Notes'

ImageIndex = 4

object Panel4: TPanel

Left = 0

Top = 0

Width = 706

Height = 41

Align = alTop

TabOrder = 0

object Button3: TButton

Left = 8

Top = 8

Width = 105

Height = 25

Caption = 'Load End Notes'

TabOrder = 0

OnClick = Button3Click

end

end

object EndNotesList: TListBox

Left = 0

Top = 41

Width = 706

Height = 348

Align = alClient

ItemHeight = 13

TabOrder = 1

end

end

end

object MainMenu1: TMainMenu

Left = 208

Top = 32

object File1: TMenuItem

Caption = 'File'

object Open1: TMenuItem

Caption = 'Open'

OnClick = Open1Click

end

object SaveasFB21: TMenuItem

Caption = 'Save as FB2'

OnClick = SaveasFB21Click

end

end

end

object OpenDialog1: TOpenDialog

Filter = 'Text|*.txt|Any file|*.*'

FilterIndex = 2

Left = 240

Top = 32

end

object SaveDialog1: TSaveDialog

Filter = 'FB2 |*.fb2'

Left = 272

Top = 32

end

end

// конец кода

Код файла Unit1.pas соответствующего Form1

// начало кода

unit Unit1;