Função para completar String

Estou trazendo novamente uma função simples porem muito boa para facilitar o desenvolvimento em Delphi.
A função abaixo (funCompletaCampo) serve para preencher automaticamente um campo com um valor String padrão.
Por exemplo: Completar com zeros a esquerda ou a direita de um determinado campo.

Segue abaixo a função e um pequeno exemplo de utilização.

function TFrmPrincipal.funCompletaCampo(pStrValor, pStrMascara, pStrLado: String; pIntTamanho: Integer): String;
var
lIntCont: Integer;
begin
Result := '';
for lIntCont := 1 to (pIntTamanho - Length(pStrValor)) do
Result := Result + pStrMascara;

if UpperCase(pStrLado) = 'E' then
Result := Result + pStrValor
else
Result := pStrValor + Result;
end;

procedure TFrmPrincipal.BtnTeste(Sender: TObject);
begin
EdtTeste.Text := funCompletaCampo(EdtTeste.Text, '0', 'E', 6);
end;

Os parametros da função são o seguinte:
pStrValor: Valor original
pStrMascara: Qual o caracter que será adicionado ao valor original
pStrLado: Qual lado será adicionado o pStrMascara, 'D' -> Direita, 'E' -> Esquerda
pIntTamanho: Qual o tamanho que o campo deve ter
O Result dessa função é um String preenchido pelo valor original mais a mascara adicionada.

Obrigado e até a próxima.