大家帮忙看看好吗？这个文本处理控件的程序有问题

我是一个刚刚学Delphi的学生，刚学完了Pascal语言，对各种组件都不是很熟悉，这个程序是我从书上打进去的，结果不能运行，而且程序是没有注释的（各位可能要更加麻烦了：）），不知道哪里出现了错误，麻烦大家帮忙看看，小弟在此跪谢啦～～
unit colour;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    EdCaption: TEdit;
    EdWidth: TEdit;
    EdHeight: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    CHKAutosize: TCheckBox;
    CHKEnabled: TCheckBox;
    CHKTransparent: TCheckBox;
    CHKWordwrap: TCheckBox;
    BtnColour: TButton;
    BtnFront: TButton;
    CmbLayout: TComboBox;
    FontDialog1: TFontDialog;
    ColorDialog1: TColorDialog;
    procedure EdCaptionChange(Sender: TObject);
    procedure CHKAutosizeClick(Sender: TObject);
    procedure CHKEnabledClick(Sender: TObject);
    procedure CHKTransparentClick(Sender: TObject);
    procedure CHKWordwrapClick(Sender: TObject);
    procedure BtnColourClick(Sender: TObject);
    procedure BtnFrontClick(Sender: TObject);
    procedure CmbLayoutChange(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{下面几个过程是什么意思呢？我只看懂了两个，我初学，别笑我啊}procedure TForm1.EdCaptionChange(Sender: TObject);
begin
  Label1.Caption:=EdCaption.Text;end;procedure TForm1.CHKAutosizeClick(Sender: TObject);
begin
  Label1.AutoSize:=ChkAutoSize.Checked;
  if not Label1.AutoSize then
    begin
      Label1.Width:=330;
      Label1.Height:=254;
    end;end;procedure TForm1.CHKEnabledClick(Sender: TObject);
begin
  Label1.Enabled:=CHKEnabled.Checked;end;procedure TForm1.CHKTransparentClick(Sender: TObject);
begin
  Label1.Transparent:=CHKTransparent.Checked;end;procedure TForm1.CHKWordwrapClick(Sender: TObject);
begin
  Label1.WordWrap:=CHKWordwrap.Checked;end;procedure TForm1.BtnColourClick(Sender: TObject);
begin
  if FontDialog1.Execute then
    Label1.Color:= ColorDialog1.Color;end;procedure TForm1.BtnFrontClick(Sender: TObject);
begin
   if FontDialog1.Execute then
     Label1.Font:=FontDialog1.Font;end;procedure TForm1.CmbLayoutChange(Sender:TObject);
begin
  case Cmblayout.ItemIndex of
  {Delphi报出来的错误是下面三个t1Top，t1Center，t1Bottom没有定义}
  0:
    Label1.Layout:=t1Top;  
  1:
    Label1.Layout:=t1Center;
  2:
    Label1.Layout:=t1Bottom;
end;
end;end.