ارث بری در دلفی

[Future]

سلام دوستان
من یک notebook بر روی صفحه دارم که هر دفعه یک page به آن اضافه می شود حالا می خواهم یک speedbutton بر روی هر page ایجاد کنم و در ضمن مشخص هم نیست که کدام page هست من دستورات زیر را نوشته ام ولی عمل نمی کند




With Mainmenu Do
begin
SQL.Clear
( SQL.Add('EXEC main_menu_caption '+Net__loc.Id1
Open
While not Eof Do
begin
i:=i+1
title:=Mainmenu.fieldbyname('title').AsString

(Pnl:=TPanel.Create(Panel3
Pnl.Parent:=Panel3
Pnl.Align:=altop
Pnl.Height:=20
Pnl.Visible:=true
Pnl.Color:=$00EFEFEF


(Lbl:=TLabel.Create(Pnl
Lbl.Parent:=pnl
Lbl.Align:=alclient
Lbl.Alignment:=tacenter
Lbl.Caption:=title
Lbl.Visible:=true
Lbl.Color:=$009dd2d7
Lbl.Tag:=i

(( Notebook1.Pages.Add(inttostr(i
With submenu Do
begin
SQL.Clear
(( SQL.Add('EXEC sub_menu_caption '+Net__loc.Id1 + ',' + inttostr(i
Open
For j:=1 to submenu.RecordCount do
begin
titsub:=fieldbyname('title').AsString
(sp:=TSpeedButton.Create(Notebook1
sp:=TspeedButtn(Foundcomponent //
sp.Parent:=Notebook1
sp.Visible:=True
sp.Width:=Notebook1.Width-4
sp.Top:=top1+sp.Top
top1:=top1+10
sp.Flat:=true
sp.Caption:=titsub
sp.BringToFront

Next
end
end

Next
end
end;

[Future]

دوستان سلام
آقا کسی نیست به سوال ما جواب بده
خیلی حیاتی هست

[Future]

از میان این همه برنامه نویس کسی نمی دونه ارث بری یعنی چه؟
آقای اینترپرایز شما چطور؟؟؟؟