Pencarian Tanggal,Bulan dan Tahun (Delphi 7)

Tutorial Kali ini Khusus untuk Newbie cara Pencarian Kalender yaitu Tanggal,bulan dan tahun dengan menggunakan Tombol (TBUTTON) dan Case OF , Program ini di buat menggunakan Borland delphi 7. langsung saja Ke tutorialnya
Yang Ingin Download SourceCode nya bisa di download Dibawah ini :

Via Mediafire :
 >Download<

Via 4shared :
>Download<

Code Lengkap :

==========================Begin Code=====================



unit Unit1;
//http://olvandra.blogspot.com //
//http://meanddelphi.blogspot.com //
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids, Calendar, ExtCtrls, XPMan;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Calendar1: TCalendar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    XPManifest1: TXPManifest;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if Length(edit1.Text)=0 then

Calendar1.Day:=strtoint(edit1.Text);
Calendar1.Month:=strtoint(edit2.Text);
Calendar1.year:=strtoint(edit3.Text);
label4.Caption:=edit1.Text;
label5.Caption:=edit2.Text;
label6.Caption:=edit3.Text;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Case Key Of
    '0': Exit;
    '1': Exit;
    '2': Exit;
    '3': Exit;
    '4': Exit;
    '5': Exit;
    '6': Exit;
    '7': Exit;
    '8': Exit;
    '9': Exit;
    #8 : Exit; {Backspace}
  End;
  Key := #0; {Throw the key away}
end;

end.