An FizzBuzz implementation in Delphi

FizzBuzz.dpr

program FizzBuzz;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Diagnostics;

begin
  var Stopwatch := TStopwatch.StartNew;
  var b := TStringBuilder.Create;
  for var i := 1 to 100 do
  begin
    var s := '';
    if i mod 3 = 0 then
      s := 'Fizz';
    if i mod 5 = 0 then
      s := s + 'Buzz';
    if s = '' then
      b.AppendLine(i.ToString)
    else
      b.AppendLine(s);
  end;
  var s := b.ToString;
  writeLn(s);
  WriteLn((Stopwatch.ElapsedTicks / Stopwatch.Frequency * 1000000) .ToString + ' μs');
end.