表格文字：
物件 Form1：TForm1
左 = 192
頂部 = 107
邊框樣式 = bsNone
標題 = 'Form1'
客戶端高度 = 348
客戶端寬度 = 536
顏色 = clBtnFace
字體.Charset = DEFAULT_CHARSET
字體顏色 = clWindowText
字體高度 = -11
Font.Name = 'MS Sans Serif'
字體樣式 = []
舊創建訂單 = False
OnCreate = Button1Click
每英吋像素 = 96
文字高度 = 13
對象按鈕1：TButton
左 = 392
頂部 = 152
寬度 = 75
高度 = 25
標題=“按鈕1”
製表符順序 = 0
單擊時=按鈕1單擊
結尾
對象按鈕2：TButton
左 = 432
頂部 = 24
寬度=17
高度 = 17
標題=“按鈕2”
製表符順序 = 1
OnClick = Button2Click
結尾
對象 Button3：TButton
左 = 448
頂部 = 40
寬度=17
高度 = 17
標題=“按鈕2”
製表符順序 = 2
OnClick = Button3Click
結尾
對象 Button4：TButton
左 = 464
頂部 = 56
寬度=17
高度 = 17
標題=“按鈕2”
製表符順序 = 3
OnClick = Button4Click
結尾
結尾
各種不同的事件聲名：
TForm1 = 類別(TForm)
按鈕1：T按鈕；
按鈕2：T按鈕；
按鈕3：T按鈕；
按鈕4：T按鈕；
PROcedure Button1Click(發送者: TObject);
過程 Button2Click(寄件者: TObject);
過程 Button3Click(寄件者: TObject);
程序 Button4Click(寄件者: TObject);
私人的
程序 WMmove(var 訊息: TWMNCHITTEST);訊息WM_NCHITTEST；
{ 私人聲明 }
民眾
{ 公開聲明 }
結尾;
變數
表格1：TForm1；
執行
{$R *.DFM}
過程 TForm1.WMmove(var 訊息: TWMNCHITTEST);
開始
訊息.結果 := HTCAPTION;
結尾;
流程 TForm1.Button1Click(寄件者: TObject);
變數
R1、R2、R3、R4、R5：HRGN；
開始
R1 := CreateEllipticRgn(0,0,Round(ClientWidth / 2),ClientHeight);
R2 := CreateEllipticRgn(Round(ClientWidth / 2),0,ClientWidth,ClientHeight);
R3 := CreateEllipticRgn(Round(ClientWidth / 4 ),Round(ClientHeight / 4 *3),Round(ClientWidth / 4 *3),ClientHeight);
R4 := CreateRectRgn(0,0,0,0);
R5 := CreateRectRgn(0,0,0,0);
組合Rgn(R4,R2,R1,RGN_or);
組合Rgn(R5,R4,R3,RGN_or);
SetWindowRGN(句柄,R5,True);
刪除物件(R1);
刪除物件(R2);
刪除物件(R3);
刪除物件(R4);
刪除物件(R5);
結尾;
流程 TForm1.Button2Click(寄件者: TObject);
開始
SendMessage(句柄,WM_SYSCOMMAND,SC_MINIMIZE,0);
結尾;
流程 TForm1.Button3Click(寄件者: TObject);
開始
SendMessage(句柄,WM_SYSCOMMAND,SC_DEFAULT,0);
結尾;
流程 TForm1.Button4Click(寄件者: TObject);
開始
應用程式。
結尾;
結尾。