[quimeras]

Puedes utilizar una plantilla del contrato en formato Word con una serie de 'marcadores' y que tu aplicación Delphi inserte estos marcadores automaticamente, Word se encargará de ajustar el texto según su longitud.

A mi me ha funcionado de esta manera:

 procedure TfMain.bnContratoClick(Sender: TObject);
 const
    Fichero = 'Contrato';
    DirectorioContratos: 'C:\Contratos\';
 var
    MiWord: OleVariant;
    procedure SustituirMarcador(Marcador, Contenido: string);
 	 begin
 	  if MiWord.ActiveDocument.Bookmarks.Exists(Marcador) then
 		 MiWord.ActiveDocument.Bookmarks.Item(Marcador).Range.InsertBefore(Contenido);
 	 end;
 begin
    // Intento abrir Word...
    MiWord:= CreateOleObject('Word.Application');
    if VarIsEmpty(MiWord) then
 	  raise exception.create('No puedo abrir Word, puede que no este instalado!');
    // Abre el documento de Word
    MiWord.Documents.Open(DirectorioContratos + Fichero + '.doc');
    // Selecciona los marcadores del documento y los reemplaza
    // con los valores de los campos del formulario.
    // Los marcadores deben de haber sido creados previamente en word
    SustituirMarcador('CODIGO', TablaCODIGO.AsString);
    SustituirMarcador('CONCEPTO', TablaCONCEPTO.AsString);
    SustituirMarcador('NOMBRECOMPLETO', TablaNOMBRECOMPLETO.AsString);
    SustituirMarcador('DIRECCION', TablaDIRECCION.AsString);
    SustituirMarcador('DNI', TablaDNI.AsString);
    SustituirMarcador('TELEFONO', TablaTELEFONO.AsString);
    // etc
    
    // maximizamos la ventana de Word
    MiWord.WindowState:=wdWindowStateMaximize;
    MiWord.ActiveWindow.WindowState:=wdWindowStateMaximize;
    // Hace visible la ventana de Word
    MiWord.Visible:=True;
    // Guardamos el contrato
    MiWord.ActiveDocument.SaveAs(
 	  DirectorioContratos +
 	  'Contrato' + FormatFloat('000000', TablaCODIGO.AsInteger) + '.doc');
 end;