Como duplicar ou replicar uma string?

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

Funçao do Delphi: DupeString(texto, nº de repetições);

Para o exemplo também é necessário estar declarado SysUtils na seção uses,
em versões unicode declare System.SysUtils.

Exemplos de uso:

1
2
3
4
5
6
7
8
9
10
11

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Replicando a String três veses
  ShowMessage(DupeString('texto', 3));
 
  // Duplicando a String
  ShowMessage(DupeString('show delphi', 2));
 
  // Replicando a String dez veses
  ShowMessage(DupeString('| Delphi XE 7 |', 10));
end;