[marcoszorrilla]

Lo que tienes que hacer, es antes de imprimir rellenar la variable o registro con los espacios que le falten, para ello yo me he construido 2 funciones que rellenan con espacios a la izquierda o derecha según se necesiste:

Código Delphi [-]
  Function FillSpacesLeft(cVar:String;nLen:Integer):String;
  begin
  Result:=StringOfChar(' ',nLen - Length(cVar))+cVar;
  end;
  
  Function FillSpacesRight(cVar:String;nLen:Integer):String;
  begin
  Result:=cVar+StringOfChar(' ',nLen - Length(cVar));
  end;
 
 {Aquí rellenamos la variable con los espacios que le falten}
 
 cc.Nombre    :=FillSpacesRight(DmPal.ConcurNombre.Value,40);

Un Saludo.