unit TDIReg ;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, LResources ;
procedure Register;
implementation
Uses TDIClass ;
begin
RegisterComponents('TDI', [ TTDINoteBook ]);
end ;
initialization
{$I tdi.lrs}
end.