//通过控件的Handle
Var
te: TEdit;
begin
te:=TEdit(FindControl(handle));
//使用te
//te.text......
end
//通过控件的名称
Var
te: TEdit;
begin
te:=TEdit(FindComponent('eidt'+IntToStr(1) ) );
//使用te
//te.text......
end
//通过控件的Handle
Var
te: TEdit;
begin
te:=TEdit(FindControl(handle));
//使用te
//te.text......
end
//通过控件的名称
Var
te: TEdit;
begin
te:=TEdit(FindComponent('eidt'+IntToStr(1) ) );
//使用te
//te.text......
end