我有一类似msn组件的源代码,我想在里面加两个button按钮,怎么做呀?(50分)

我有一类似msn组件的源代码,我想在里面加两个button按钮,怎么做呀?

我的QQ是839481480,我很急呀...主要用来当确定的时候就触发某个事件...

btn := TButton.Create(form1);
btn.parent := form1;
btn.Onclick := 你自己的过程函数

不行呀，人家的代码是这样的:Type
TfrmMSNPopUp = Class(TCustomForm)
pnlBorder: TPanel;
imgIcon: TImage;
lblText: TMouseLabel;
imgGradient: TImage;
// add by Ahmed Hamed 21-3-2002
imgMsn: TImage;
//
tmrExit: TTimer;
tmrScroll: TTimer;
// add by Ahmed Hamed 20-3-2002
tmrScrollDown: TTimer;
//
lblTitle: TMouseLabel;
// Added by Anomy
Procedure lblTextMouseEnter(Sender: TObject);
Procedure lblTextMouseLeave(Sender: TObject);
Procedure lblTextClick(Sender: TObject);
Procedure tmrExitTimer(Sender: TObject);
// add by Ahmed Hamed 20-3-2002
Procedure tmrscrollDownTimer(Sender: TObject);
//
Procedure lblTextMouseUp(Sender: TObject;
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer);.............等等。。。