RosettaCodeData/Task/Repeat-a-string/Delphi/repeat-a-string-3.pas

function RepeatStr(const s: string; i: Cardinal): string;
begin
  if i = 0 then
    result := ''
  else
   result := s + RepeatStr(s, i-1)
end;