FizzBuzz問題

某所でFizzBuzz問題を目にしたのでちょっと書いてみました。パソコンにはDelphiが入ってたのでそれで作ってみました。

program FizzBuzz;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var i     : Integer;
    prStr : String;
begin
  for i := 1 to 100 do begin
        prStr := '';
        if ( (i mod  3) = 0 ) then prStr := 'Fizz';
        if ( (i mod  5) = 0 ) then prStr := prStr + 'Buzz';

        if prStr = '' then prStr := IntToStr(i);

        Writeln('i = ' + IntToStr(i) + #9 + prstr);
  end;
end.

もっと簡単に書けそうな気がするので追々気付いたときに直しておきます。
面白い解があれば教えてください。