delphi传递与复制对象(DELPHI5从入门到精通75页)

var
Button2:Tbutton;
begin
Button2 := button1;
这段代码没有建立一个新对象，而是建立了对内存中同一个对象的引用。内存中只有1个对象，而Button1,Button2变量都引用它。如果将对象作为参数传递给函数也是一样，没有建立新对象，而是在代码的两个不同位置引用了同一个对象。

我们可以查询组件的类（sender.classtype），然后使用类引用建立该类型的新对象。
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;

type
TForm1 = class(TForm)
Button1: TButton;
ScrollBox1: TScrollBox;
Label1: TLabel;
CheckBox1: TCheckBox;
Label2: TLabel;
Button2: TButton;
Edit1: TEdit;
BitBtn1: TBitBtn;
SpeedButton1: TSpeedButton;
GroupBox1: TGroupBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
procedure Button1Click(Sender: TObject);
procedure ClickComp(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sende