แบบฟอร์มข้อความ：
วัตถุ Form1: TForm1
ซ้าย = 192
บน = 107
BorderStyle = bsNone
คำบรรยาย = 'Form1'
ความสูงลูกค้า = 348
ความกว้างของไคลเอ็นต์ = 536
สี = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
แบบอักษรความสูง = -11
Font.Name = 'MS Sans Serif'
แบบอักษร.สไตล์ = []
OldCreateOrder = เท็จ
OnCreate = Button1Click
PixelsPerInch = 96
ความสูงข้อความ = 13
วัตถุ Button1: TButton
ซ้าย = 392
บน = 152
ความกว้าง = 75
ส่วนสูง = 25
คำบรรยาย = 'Button1'
ลำดับแท็บ = 0
OnClick = Button1Click
จบ
วัตถุ Button2: TButton
ซ้าย = 432
บน = 24
ความกว้าง = 17
ส่วนสูง = 17
คำบรรยาย = 'Button2'
ลำดับแท็บ = 1
OnClick = Button2Click
จบ
วัตถุ Button3: TButton
ซ้าย = 448
บน = 40
ความกว้าง = 17
ส่วนสูง = 17
คำบรรยาย = 'Button2'
ลำดับแท็บ = 2
OnClick = Button3Click
จบ
วัตถุ Button4: TButton
ซ้าย = 464
บน = 56
ความกว้าง = 17
ส่วนสูง = 17
คำบรรยาย = 'Button2'
ลำดับแท็บ = 3
OnClick = Button4Click
จบ
จบ
各种不同的事件声名：
TForm1 = คลาส (TForm)
Button1: T ปุ่ม;
Button2: T ปุ่ม;
Button3: T ปุ่ม;
Button4: T ปุ่ม;
ขั้นตอน Button1Click (ผู้ส่ง: TObject);
ขั้นตอน Button2Click (ผู้ส่ง: TObject);
ขั้นตอน Button3Click (ผู้ส่ง: TObject);
ขั้นตอน Button4Click (ผู้ส่ง: TObject);
ส่วนตัว
ขั้นตอน WMmove (ข้อความ var: TWMNCHITTEST); ข้อความ WM_NCITTEST;
{ การประกาศส่วนตัว }
สาธารณะ
{ คำประกาศสาธารณะ }
จบ;
var
แบบฟอร์ม 1: TForm1;
การดำเนินการ
{$R *.DFM}
ขั้นตอน TForm1.WMmove (ข้อความ var: TWMNCHITTEST);
เริ่ม
ข้อความผลลัพธ์ := HTCAPTION;
จบ;
ขั้นตอน TForm1.Button1Click (ผู้ส่ง: TObject);
var
R1,R2,R3,R4,R5: HRGN;
เริ่ม
R1 := CreateEllipticRgn(0,0,รอบ(ClientWidth / 2),ClientHeight);
R2 := CreateEllipticRgn(รอบ(ClientWidth / 2),0,ClientWidth,ClientHeight);
R3 := CreateEllipticRgn(รอบ(ClientWidth / 4 ),รอบ(ClientHeight / 4 *3),รอบ(ClientWidth / 4 *3),ClientHeight);
R4 := CreateRectRgn(0,0,0,0);
R5 := CreateRectRgn(0,0,0,0);
CombineRgn(R4,R2,R1,RGN_or);
CombineRgn(R5,R4,R3,RGN_or);
SetWindowRGN(หมายเลขอ้างอิง,R5,จริง);
ลบวัตถุ(R1);
ลบวัตถุ(R2);
ลบวัตถุ(R3);
ลบวัตถุ(R4);
ลบวัตถุ(R5);
จบ;
ขั้นตอน TForm1.Button2Click (ผู้ส่ง: TObject);
เริ่ม
ส่งข้อความ(จัดการ,WM_SYCOMMAND,SC_MINIMIZE,0);
จบ;
ขั้นตอน TForm1.Button3Click (ผู้ส่ง: TObject);
เริ่ม
ส่งข้อความ(จัดการ,WM_SYCOMMAND,SC_DEFAULT,0);
จบ;
ขั้นตอน TForm1.Button4Click (ผู้ส่ง: TObject);
เริ่ม
ใบสมัครยุติ;
จบ;
จบ.