[LeonelGisuk]

function Replicate(Caracter: string; Quant: Integer): string;
var
    I: Integer;
begin
    Result := '';
    for I := 1 to Quant do
      Result := Result + Caracter;
end;