Повтор строки заданное количество раз

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Повтор строки заданное количество раз
 
Input - строка для повторения
Rep - количество повторений
 
Строка на выходе это входная строка повторенная Rep раз.
 
Зависимости: Стандартные модули
Автор:       Ru, DiVo_Ru@rambler.ru, Одесса
Copyright:   DiVo 2002 creator Ru (по мотивам функции Str из Word Basic)
Дата:        18 ноября 2002 г.
***************************************************** }
 
function MulStr(Input: string; Rep: integer): string;
var
  i: integer;
begin
  for i := 0 to Rep - 1 do
    result := result + Input;
end;
Пример использования: 
 
s1 := 'Привет';
s := MulStr(s1, 3);
 
// результат:
s := 'ПриветПриветПривет';