闰年的问题？

[awpcat]

我是初级菜鸟。下面有些代码，怎样把它们合成一个可以运行的delphi程序？

type
TDate = class
Mouth,day,Year:Integer;
procedure Setvalue(m,d,y:Integer);
function LeapYear:Boolean;
end;

procedure TDate.Setvalue(m,d,y):Integer;
begin
Mouth := m;
Day := d;
Year := y;
end;

function TDate.LeapYear:Boolean;
begin
if (Year mod 4 <> 0) then
LeapYear := False
else if (Year mod 100 <> 0)
LeapYear := True
else if (Year mod 400 <> 0)
LeapYear := False
else
LeapYear := True;
end;

var
ADay: TDate;
begin
//建立一个对象
ADay := TDate.create;
//使用之
ADay.Setvalue(1,1,2000);
if ADay.LeapYear then
ShowMessage(’闰年：’ + Inttostr(ADay.year));
//释放对象
ADay.free;
end;

[terence4444]

IsLeapYear(DateTime_Year)函数判断是否为闰年

[Flarezhao]

if then 都不配对。天呢