Скопируйте код формы из книги (не захватывая слова "начало кода" и "конец кода"). Вставьте его в открытое окно. Нажмите правую кнопку мыши и выберите View as Form. Если все сделано правильно Вы увидите форму.
Скопируйте код соответствующего unit. Замените им код в окне Code.
Хорошо, одна форма сделана.
Теперь создайте новую форму File - New - Form
И повторите предыдущие операции
Форм и соответствующих им Юнитов нужно сделать 4:
Unit1.dfm, genres.dfm, EditStr.dfm, authors.dfm
Unit1.pas, genres.pas, EditStr.pas, authors.pas
Файлы UmFB2.pas и dm.pas форм не имеют т.е. просто сделайте их из текстовых.
Итак, начали.
// начало кода
object Form1: TForm1
Left = 187
Top = 98
Width = 722
Height = 463
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 714
Height = 417
ActivePage = TabSheet2
Align = alClient
TabIndex = 3
TabOrder = 0
object TabSheet1: TTabSheet
Caption = 'title-info'
object Annotation: TMemo
Left = 0
Top = 273
Width = 706
Height = 116
Align = alClient
ScrollBars = ssVertical
TabOrder = 0
WordWrap = False
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 706
Height = 273
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Lbook_title: TLabel
Left = 8
Top = 64
Width = 43
Height = 13
Caption = 'book-title'
end
object LProject: TLabel
Left = 8
Top = 8
Width = 36
Height = 13
Caption = 'Project:'
end
object LAnnotation: TLabel
Left = 16
Top = 240
Width = 51
Height = 13
Caption = 'Annotation'
end
object Lsequence: TLabel
Left = 16
Top = 176
Width = 49
Height = 13
Caption = 'Sequence'
end
object LLang: TLabel
Left = 376
Top = 176
Width = 27
Height = 13
Caption = 'Lang.'
end
object Lsrc_lang: TLabel
Left = 456
Top = 176
Width = 49
Height = 13
Caption = 'Src. Lang.'
end
object LTome: TLabel
Left = 200
Top = 176
Width = 27
Height = 13
Caption = 'Tome'
end
object book_title: TEdit
Left = 64
Top = 56
Width = 217
Height = 21
TabOrder = 0
end
object FB2_file: TEdit
Left = 8
Top = 24
Width = 273
Height = 21
TabOrder = 1
end
object Au: TGroupBox
Left = 296
Top = 8
Width = 185
Height = 153
Caption = ' Authors '
TabOrder = 2
object ListBox3: TListBox
Left = 8
Top = 15
Width = 169
Height = 106
ItemHeight = 13
TabOrder = 0
end
object Button10: TButton
Left = 152
Top = 124
Width = 25
Height = 25
Caption = '...'
TabOrder = 1
OnClick = Button10Click
