// cria uma string com n caracteres
function IncStr( Str: String; Qtd: Integer ): String;
var v_Str: String;
begin
  v_Str := Str;
  While Length( SysUtils.Trim( Str ) ) < Qtd do
    Str := v_Str+ SysUtils.Trim(Str);
  // Retorno da Funcao.
  Result := Str;
end;