// ...
type
  TLocal = (lcLeft, lcRight, lcCenter);
 
  TForm1 = class(TForm)
    Button1: TButton;
 
// ... continuação do código da tela

function StrFormat(AText, Caracter: String; Size: Word; Local: TLocal): String;
var
  X: Integer;
begin
  Result := Copy(AText, 1, Size);
  for X := Length( AText ) to Size - 1 do
  begin
    case Local of
      lcLeft: Result := Caracter + Result;
      lcRight: Result := Result + Caracter;
      lcCenter: if (X mod 2) = 0 then
                  Result := Result + Caracter
                else
                  Result := Caracter + Result;
    end;
  end;
end;

// Exemplos de uso:
procedure TForm1.Button1Click(Sender: TObject);
var
  s : String;
begin
  // String de 8 caracteres com zeros a esquerda.
  s := StrFormat('15', '0', 8, lcLeft);
  ShowMessage(s);
 
  // String de 14 caracteres completando com espaços a direita.
  s := StrFormat('01253696312', ' ', 14, lcRight);
  ShowMessage(s + '|');
 
  { Criando uma string de 30 caracteres complentado se necessário
  com espaços a direita e a esquerda, criando um efeito de centralização. }
  s := StrFormat('teste', ' ', 30, lcCenter);
  ShowMessage('|' + s + '|');
end;