// 다음과 같이 해당 유니트에 넣어 사용하세요


private
    { Private declarations }
    function LeapYear(Year : Integer): Boolean;  //윤년 계산

// implementation 밑에

function TForm1.LeapYear(Year : Integer): Boolean;  //윤년 계산
begin
  if (Year mod 4 <> 0) then
    LeapYear := False
  else if (Year mod 100 <> 0) then
      LeapYear := True
  else if (Year mod 400 <> 0) then
      LeapYear := False
  else
    LeapYear := True;
end;

// 사용시
if LeapYear(Year) then begin //윤년이면


// 간단합니다. bool을 return하죠

그럼...