se me ocurre que lo que puedes hacer es lo siguiente :
1.- Reducir el tamaño de la fuente
2.- Separar el nombre en 2 lineas para Imprimir
Código Delphi
[-]
lblEmpresa := 'El nombre mas largo que hay paran nombrar una empresa'
lblEmpresa1 := Copy (lblEmpresa,1,15); lblEmpresa2 := Copy (lblEmpresa,16,Maxin(lblEmpresa));