espaço em branco...

Function PadR( Expressao: String; Tamanho: Integer; Caracter : String ) : String;
var   nComprimento, nFalta : Integer;
      cPreenche : String;
Begin
   nComprimento   := Length( Expressao );
   nFalta         := Tamanho - nComprimento;
   cPreenche      := Replicate( Caracter, nFalta );
   Result         := Expressao + cPreenche;
End;

Function Replicate( ExpS1 : String; ExpI1 : Integer ) : String;
var   iX : Integer;
      sR : String;
Begin
   sR    := ´´;
   For iX := 1 To ExpI1 do sR := sR + ExpS1;
   Result := sR;
End;