unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, uViewBase; type TfrViewBase2 = class(TfrViewBase) private { Private declarations } public { Public declarations } end; var frViewBase2: TfrViewBase2; implementation {$R *.dfm} end.