บทความนี้ใช้ตัวอย่างเพื่อแสดงความแตกต่างระหว่าง Rect และ Bounds ที่สร้าง TRect รหัสตัวอย่างจะเป็นดังนี้:
unitUnit1;อินเทอร์เฟซ Windows, ข้อความ, SysUtils, ตัวแปร, คลาส, กราฟิก, การควบคุม, แบบฟอร์ม, กล่องโต้ตอบ, StdCtrls, ExtCtrls; typeTForm1 = class (TForm) Button1: TButton; RadioGroup1: TRadioGroup; ขั้นตอน RadioGroup1Click (ผู้ส่ง: TObject); ขั้นตอน FormCreate (ผู้ส่ง : : TObject);end;varForm1: TForm1;การใช้งาน{$R *.dfm}varR: TRect;ขั้นตอน TForm1.FormCreate(Sender: TObject);beginRadioGroup1.Items.CommaText := 'เลิกทำ, Rect, ขอบเขต'; R := Button1 .BoundsRect;end;ขั้นตอน TForm1.RadioGroup1Click(Sender: TObject);begincase RadioGroup1.ItemIndex of0: Button1.BoundsRect := R;1: Button1.BoundsRect := Rect(50,50,100,80); {พารามิเตอร์ 3 และ 4 เป็นจุด}2: Button1 .BoundsRect := ขอบเขต (50,50,100,80); {พารามิเตอร์ 3 และ 4 คือความกว้างและความสูงตามลำดับ} end;end;endการเรนเดอร์ขั้นสุดท้ายมีดังนี้: