type TForm1 = class(TForm) ... TabSheet1 : TTabSheet; ... TTabSheet = class(ComCtrls.TTabSheet) public ProgressThread : TThread; end;