StrUtils.DupeString - 反复字符串
举例:
--------------------------------------------------------------------------------

var
s: string;
begin
s := 'Delphi';
s := DupeString(s,3);
ShowMessage(s); //DelphiDelphiDelphi
end;