unit u_sys_progress; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, BusinessSkinForm, bsSkinCtrls, ExtCtrls; type Tfrm_sys_progress = class(TForm) bsBusinessSkinForm1: TbsBusinessSkinForm; bsSkinPanel1: TbsSkinPanel; bsSkinGauge1: TbsSkinGauge; private { Private declarations } public { Public declarations } end; var frm_sys_progress: Tfrm_sys_progress; implementation uses u_main; {$R *.dfm} end.