Concatenar Cadena Larga dentro de codigo Delphi

[JoanKa]

Hola a Todos.

Espero que me hechen una manito con esta cadena

Como haria para concatenar una cadena larga de 42 campos.
if TBancs.Checked then CopiaDatos(TEmpresas.Name,'INSERT INTO TEmpresa (CODI, DESCRIPCIO, NOM, DNI/NIF, CODI_POSTAL, SUBCODI,
POBLACIO,PROVINCIA, ADRECA, TEL1, TEL2, EMAIL, FAX, MISSATGES, CAMI, REPORTS,EDITDOCUMENT, EDITARTICLE, EDITCLIENT)
VALUES
(:CODI, ESCRIPCIO, :NOM, NI/NIF,
:CODI_POSTAL, :SUBCODI, :POBLACIO, :PROVINCIA, :ADRECA, :TEL1, :TEL2, :EMAIL, :FAX, :MISSATGES, :CAMI, :REPORTS, :EDITDOCUMENT,
:EDITARTICLE, :EDITCLIENT)');


Gracias y saludos