program Project1;  {关键字program}

uses               {uses单元引用}
  Vcl.Forms,       //新的单元名称VCL限定
  Unit1 in ‘Unit1.pas‘ {Form1};
                   {Form1窗体单元}
{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  //默认已将MainForm显示于任务栏，而不是之前版本的Application

  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit Unit2;

interface

implementation

end.

unit Unit1;

interface
(*
  interface接口段，声明这个单元的输出标识符，
  即能被其他单元访问的项目
  以interface开始，implementation结束
*)

uses        {引用的单元列表，和D7不同是需要加命名空间}
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  {使用了一个TForm类}
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyArray = array[0..19] of Byte;  {声明一个新的类型}

const  {const关键字用来声明常量}
  AppCation = ‘Hello World‘;

var
  Form1: TForm1;
  X: Integer;
  MyArray: TMyArray; {Type区域中声明的新类型}

  procedure DoSomething; {声明一个DoSomething过程}

implementation
(*
  执行段以implementation开始，以下一个关键字结束，
  下一个关键字通常就是单元的最后关键字end。
  但在有初始化的单元中，下一个关键就是initialization关键字。
*)

{$R *.dfm}
uses
  System.Contnrs; {implementation执行段的单元引用}

var
  ObjList: TObjectList;

Const
  BaseX = 20;
  BaseY = 200;

procedure DoSomething;
begin
  {Code for DoSomething goes here.}
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(‘Hello World‘);
end;
(*
  initialization单元初始化和finalizaiton单元结束
 用来执行启动和清理的代码，初始化中的任何代码在其单元载入内存时都要被执行，
 结束段中的任何代码在单元从内存中清理前都要被执行。
 可以只有一个初始化段，但不能只有结束段，而没有初始化段。
*)
initialization  {单元初始化}
  ObjList := TObjectList.Create;

finalization  {单元结束}
  FreeAndNil(ObjList);
end.

{$R *.dfm}   { 这句话告诉编译器去连接对应的窗体文件，名称与单元文件相同，但扩展名为.dfm}

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = ‘Form1‘
  ClientHeight = 329
  ClientWidth = 620
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = ‘Tahoma‘
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
end