请教关于传递Parent 参数问题(急....急...) ( 积分: 50 )

我在窗体的ONCREATE之中有这样一段两过程,请问如何实现传递PARENT参数
WITH TPANEL.CREATE(self) do
parent:=from1
name:=rzpanel1
end;
接下来,我想在新建立的RZPANEL1之上建立LABEL或tSEEPBUTTION
procedure CRATEBUTTION(PANEL:Tpanel)
begin
with Tspeedbuttion.create(self) do
parent:=panel(请问如何取得上面的rzpanel1作为其PARENT）
name:=speedbuttion1
end;
利用变量传参数请问怎样做才行，请高手指示或指点；
所有

var
RZPanel: TPanel;
begin
RZPanel := TPanel.Create(Self);
RZPanel.Parent := Self;
CRATEBUTTON(RZPanel);
end;

to ANiDelphi
感谢你给我的回贴,你的结果我没有去试,我想应是正确的,因为在看到你的答案,之前我以成功解决上面的问题了,我还是要谢谢你,希望你可以继续回我的帖