нахождение высокосного года, сезона года и к-ва дне с начала года Делфи 7 (есть код программы полностью)

[программирование]

кто-нибудь, пожалуйста, посмотрите и скажите: почему не запускается программа, в чем причина?
вот код программы:

PHP код:

unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Edit4: TEdit;
    Button2: TButton;
    Edit5: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
tdate=class
    month,day,year:integer;
    procedure setvalue(m,d,y:integer);
    procedure prog(m:integer);
     procedure pr(m,d:integer);
    function leapyear:boolean;
    function poragoda: integer;
    function getdays: integer;
  end;

var
  Form3: TForm3;
  aday:tdate;
  mn,dn,yn,para,mes,dni,mo:integer;


implementation

{$R *.dfm}
 procedure tdate.setvalue(m,d,y:integer);
begin
 month:=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) then
      leapyear:=true
 else if (year mod 400<>0) then
      leapyear:=false
 else
      leapyear:=true;
end;
procedure tdate.prog(m:integer);
begin
month:=mo;
end;

 function tdate.poragoda: integer;
 begin
 if  (month =12) or (month =1) or (month =12) then poragoda:=1;
 end;
   procedure tdate.pr(m,d:integer);
   begin
   month:=m;
   day:=d;
   end;
 function tdate.getdays: integer;
  begin
   if mn=1 then  showmessage(inttostr (dn));
   if mn=3 then  showmessage(inttostr ((31)+dn));
   if mn=4 then  showmessage(inttostr (dn+31+28));
   if mn=5 then  showmessage(inttostr (dn+31+28+30));
   if mn=6 then  showmessage(inttostr (dn));
   if mn=7 then  showmessage(inttostr (dn));
   if mn=8 then  showmessage(inttostr (dn));
   if mn=9 then  showmessage(inttostr (dn));
   if mn=10 then  showmessage(inttostr (dn));
   if mn=11 then  showmessage(inttostr (dn));
   if mn=12 then  showmessage(inttostr (dn));
   end;
egin
   // ctvorenna obektu
   aday:=tdate.Create ;
   // vikorictanna ego
   mn:=strtoint(form3.edit1.text);dn:=strtoint(form3.edit2.text);yn:=strtoint(form3.edit3.text);
   mn:=12;
   aday.setvalue(mn,dn,yn);
   if aday. Poragoda=1  then
        showmessage('Zima');
        aday.Free;
   if aday.leapyear  then
    showmessage('Visokicniy rik:' + inttostr(aday.year)+' '+inttostr(yn))
      else
    showmessage('NEvisokicniy rik:' + inttostr(aday.year));
    //znichenna obekta
    form3.edit4.Text:='Vi vveli datu '+inttostr(dn)+'/'+inttostr(mn)+'/'+inttostr(yn);
    aday.Free;
end;
 begin
   // ctvorenna obektu
   aday:=tdate.Create ;
   // vikorictanna ego
   mn:=1;dn:=1;yn:=2001;
   aday.setvalue(mn,dn,yn);
   if aday.leapyear  then
    showmessage('Visokicniy rik:' + inttostr(aday.year))
    else
    showmessage('NEvisokicniy rik:' + inttostr(aday.year));
    //znichenna obekta
    aday.Free;
    aday:=tdate.Create;


end. 


меня очень интересует- как запустить эту часть (про определение сезона года по месяцу):
вот код

PHP код:

function tdate.poragoda: integer;
 begin
 if  (month =12) or (month =1) or (month =12) then poragoda:=1;
 end;
   procedure tdate.pr(m,d:integer);
   begin
   month:=m;
   day:=d;
   end; 


и как запустить часть про определение количества дней с начала года:
вот код:

PHP код:

function tdate.getdays: integer;
  begin
   if mn=1 then  showmessage(inttostr (dn));
   if mn=3 then  showmessage(inttostr ((31)+dn));
   if mn=4 then  showmessage(inttostr (dn+31+28));
   if mn=5 then  showmessage(inttostr (dn+31+28+30));
   if mn=6 then  showmessage(inttostr (dn));
   if mn=7 then  showmessage(inttostr (dn));
   if mn=8 then  showmessage(inttostr (dn));
   if mn=9 then  showmessage(inttostr (dn));
   if mn=10 then  showmessage(inttostr (dn));
   if mn=11 then  showmessage(inttostr (dn));
   if mn=12 then  showmessage(inttostr (dn));
   end; 


я знаю, что логика нахождение сезона года по месяцу и количества дней с начала года правильная, но не могу просто скомпоновать всё это в одну программу, и чтобы всё работало.

заранее огромное спасибо всем, кто откликнется.

[BDA]

Меня удивляет количество Ваших тем про одну задачу
Вот проект с чуть измененным кодом. Он компилируется

[программирование]

BDA, спасибо вам огромное!