تستخدم هذه المقالة مثالاً لتوضيح الفرق بين Rect وBounds التي تنشئ TRect. رمز المثال كما يلي:
UnitUnit1;واجهاتاستخداماتWindows، الرسائل، SysUtils، المتغيرات، الفئات، الرسومات، عناصر التحكم، النماذج، مربعات الحوار، StdCtrls، ExtCtrls؛ : TObject);end;varForm1: TForm1;implementation{$R *.dfm}varR: TRect;procedure TForm1.FormCreate(Sender: TObject);beginRadioGroup1.Items.CommaText := 'تراجع,مستقيم,حدود';R := Button1 .BoundsRect;end;procedure TForm1.RadioGroup1Click(Sender: TObject);begincase RadioGroup1.ItemIndex of0: Button1.BoundsRect := R;1: Button1.BoundsRect := Rect(50,50,100,80); {المعلمات 3 و4 هي نقطة}2: Button1 .باوندزريكت := الحدود (50،50،100،80)؛ {المعلمات 3 و 4 هي العرض والارتفاع على التوالي}end;end;end.التقديم النهائي هو كما يلي: