object MainForm: TMainForm Text = 'DBF test' BorderWidth = 8 OnCreate = FormCreate object Box: TFBoxLayout Spacing = 8 Orientation = Vertical object ListBox: TListBox end object CurDataseTFLabel: TFLabel Text = 'Current dataset:' end object CurNameText: TDBText Text = '' end object CurEMailText: TDBText Text = '' end object Navi: TFBoxLayout object FirstDataset: TFButton Text = 'First' OnClick = FirstDatasetClick end object PrevDataset: TFButton Text = 'Previous' OnClick = PrevDatasetClick end object NextDataset: TFButton Text = 'Next' OnClick = NextDatasetClick end object LastDataset: TFButton Text = 'Last' OnClick = LastDatasetClick end end end end