TCalendar Component의 년도를 Setting해 줍니다.  
Calendar1의 properties를 보면 Year라는 부분이 있거든요...
거기에 Year(Month)Spin.Value 여기에 있는 값을 넣어 주는 부분이죠.
TCalendar Component의 시작주를 Setting합니다.
StartOfWeek 가 0이면 일요일
StartOfWeek 가 1이면 월요일
StartOfWeek 가 3이면 화요일 이런식이죠...
위의 2와 3은 달력의 표시되는 한주의 시작을 Setting하는 부분이군요
예를 들어 StartOfWeek 가 3이면 한주의 처음 시작을 화요일 부터 한다는
그러한 말인것 같군요... 참고하세요... 그럼...

답변 너무너무 감사합니다.
앞으로도 많은 바라며...

오늘 하루도 행복하세요..

8강 파이팅!!!
=================================================================

머리하고 꼬리떼고 몸통만 보여준 느낌이군요.
아래의 코드라면 컴파일조차 되지 않을꺼구요.
코드전체를 올려주시거나 편집하지 말고 해당 프로시져를 올려주십시오.

전체코드는 아래와 같습니다.
보시고 답변주시면 고맙겠습니다.

그럼, 행복하세요

unit dalyuk;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, Calendar, StdCtrls, Spin, Buttons;

type
  TForm1 = class(TForm)
    Calendar1: TCalendar;
    SpinButton1: TSpinButton;
    MonthSpin: TSpinEdit;
    YearSpin: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure YearSpinChange(Sender: TObject);
    procedure MonthSpinChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpinButton1DownClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
   NowDate:TDateTime;
   Y,M,D:Word;

begin
NowDate:=Date;
DecodeDate(NowDate,Y,M,D);
YearSpin.Value:=Y;
MonthSpin.Value:=M;
end;

procedure TForm1.YearSpinChange(Sender: TObject);
begin
  Calendar1.Year:=YearSpin.Value;
end;

procedure TForm1.MonthSpinChange(Sender: TObject);
begin
  Calendar1.Month:=MonthSpin.Value;
end;



procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
if Calendar1.StartOfWeek<6 then
    Calendar1.StartOfWeek:=Calendar1.StartOfWeek+1;
end;

end.


=====================================================================