[Fatal Error]XBSel.pas(1): Line Too long....

[Enan0]

Hola buen dia ante todo, estoy teniendo este problema al compilar..
y el error me to tira en el Unit XDBSEl.. y me dice lo sig..
[Fatal Error]XBSel.pas(1): Line Too long ( more than 1023 caract...)

Aqui pego solo un parte del código. alquien tiene alguna idea de que es lo que pasa?!. gracias....

Código Delphi [-]
 unit XDbSel;
 
 interface;
 
 uses
   WinProcs, WinTypes, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, XDb,
   StdCtrls, XDbOdbc, ExtCtrls;
 
 type
   TGetConnectOpt    = (gcoIncludeTtwMedia,gcoOnlyTtwMedia,gcoNoSelectFiles,gcoValidateConnect,gcoNoAdvancedODBC);
   TGetConnectOptSet = set of TGetConnectOpt;
 
   TMediaType        = (mtNative,mtNativeMultiFile,mtODBC);
   TMediaTypeSet     = set of TMediaType;
 
   TFileExt          = (*$IfDef Win32 *) string; (*$Else *) string[3]; (*$EndIf *)
 
   TTTWVersion       = (tv3,tv4,tv5,tv51,tv52,tv60,tv62);
   TTTWVersionSet    = set of TTTWVersion;
 
 const
    cTtwAllVersions = [Low(TTtwVersion)..High(TTtwVersion)];
 
 (*#Trans - *)
 Const
   TtwMedia          = 'TtwMedia';
   cTtwVerPrefix     = 'Ver. ';
   cTtwVerStr        : Array[TTtwVersion] of String[4] = ('3.00','4.00','5.00','5.10','5.20', '6.00', '6.20');
   cTtwFileVerStr    : Array[TTtwVersion] of String[4] = ('T300','T400','T500','T510','T520', 'T600', 'T620');
 (*#Trans + *)