procedure TForm1.Edit1Change(Sender: TObject);
begin
        //这里我怎样不用Edit1这个名字取得Edit1的所有属性
        //例如类似   这里的self指代的是form1,
        //有没有什么关键字指代Edit1(或当前空间)???或者有替代方法
        showmessage(self.Name+':'+self.Text);
end;