unit BaseGadget;

interface

type
  TBaseGadget = class(TObject)
  public
    procedure Prepare;
  end;

implementation

procedure TBaseGadget.Prepare;
begin
  { base prepare }
end;

end.