Como montar uma string de caracteres?

É necessário para o exemplo estar declarado SysUtils na seção uses,
em versões unicode declare System.SysUtils.

Função do Delphi: StringOfChar( Caracter, Quantidade )

Exemplos de uso:

1
2
3
4
5
6
7
8

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(StringOfChar('a', 10));
 
  ShowMessage(StringOfChar('9', 7));
 
  ShowMessage('|' + StringOfChar(' ', 10) + '|');
end;