各位高手！请看贴子！

我是一个菜鸟，刚开始接触编程，听说聪明的程序员用Delphi，看来Delphi 是很好用了哦！ 所以我选择Delphi ! 我是计算机专业学生，因为非典，老师都不来上课！
所以，我的C++和Delphi ,只有靠自学了，由于不可能二者兼顾，所以我想学精Delphi! 今后还请各位高手，多多指点！ 不知道那里有多媒体教学的网站！（免费的那种！）因为我是初学者，没有任何基础！这个是我的第一个程序！unit dianji;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    constructor Create(AOwer: TComponent);
  end;var
Form1: TForm1;
 BianLiang : Integer ;
  ZhenDe : String ;
 Const  Zd='真的' ;
implementation{$R *.dfm}   constructor TForm1.Create(AOWer: TComponent);
 begin
   inherited;
   BianLiang := 0end;procedure TForm1.Button1Click(Sender: TObject);begin
    if BianLiang < 3 then ZhenDe := ZhenDe
    else ZhenDe := ZhenDe + Zd ;
    BianLiang := BianLiang + 1;
   if BianLiang < 3 then ShowMessage ('晕阿！你真点击阿！') ;
   if (BianLiang > 2) and (BianLiang < 7)  then ShowMessage ('靠，我'+ (ZhenDe) +'不行了！');
   if BianLiang = 7 then 
    begin
      ShowMessage ('小样的，I 服了Ｕ，我制动关闭还不行吗！');
      Close(); end ;
end ;end .
可是我还有很多地方不明白！type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
是什么意思？
constructor TForm1.Create(AOWer: TComponent);为什么一定要这个，我没有这个就不可以，这个是什么意思那？？（这个程序是一个网友教我的，可惜他今天出差了！不知道什么时候回来！）   我接下来该怎么学，先学什么？怎么作？拜托各位高手指点，！！本人在此谢谢各位了！