うるう年かどうかを調べる

Delphiにはうるう年かどうかを調べてくれる IsLeapYear関数が用意されています。

■ 閏年かどうかを調べる例 
begin
   if    IsLeapYear( 2012 )  then
   begin
     ShowMessage('うるう年じゃん');
   end;
end;