unit exampletrainerstyle2unit; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst, ExtCtrls; type TExampletrainerstyle2 = class(TForm) Label1: TLabel; Image1: TImage; CheckListBox1: TCheckListBox; private { Private declarations } public { Public declarations } end; var Exampletrainerstyle2: TExampletrainerstyle2; implementation {$R *.dfm} end.