1inherited EditBook: TEditBook 2 Left = 464 3 Top = 175 4 Caption = 'EditBook' 5 DragKind = dkDock 6 OnActivate = FormActivate 7 OnClose = FormClose 8end 9