Completar Uma String Até um Determinado Tamanho

Olá, Boa Tarde Pessoal...
Hoje vamos a mais uma dica simples, porem muito útil.

1º - Declare a seguinte função:
   CompletaString(str: string; tamanho: Integer; caracter: string): String;

2º - Na área de implementações, implemente-a da seguinte maneira:
   function TForm1.CompletaString(str: string; tamanho: Integer; caracter: string): String;
   begin
     // str -> Variavel a ser alterada.
     // tamanho -> Tamanho desejado para a variavel.
     // caracter -> Caracter usado para completar o tamanho da variavel.
     while (Length(str) < tamanho) do
     begin
       str := str + caracter;
     end;
     Result := str;
   end;

3º - Para utilizar a função, chame-a da seguinte forma:
   minhaVariavel := CompletaString(minhaVariavel, 20, ' ');



    OBS.: Para fins de compatibilidade, esta dica foi escrita usando Delphi XE3.

Esta foi a dica de hoje, se for útil, comentem.
Se você tem uma dica interessante, pode postar nos comentários.
Atenciosamente
Dica Chave.