如何将TEdit统一一次赋值

Question

procedure TYouMainForm::FuZhi()
var i : Integer;
begin
for i=0 to Self.ControlCount do
   begin
   if Self.Controls[i] is TEdit then
      (Self.Controls[i] is TEdit).Caption:='统一赋值';//假定统一给Caption赋值
   end;end;

Answer 1

有一处书写错误，该为:
Self.Controls[i] as TEdit).Caption:='统一赋值';//

Answer 2

更正一点
for i:=0 to Self.ControlCount-1 do
   begin
   if Self.Controls[i] is TEdit then
      (Self.Controls[i] as TEdit).text:='统一赋值';//假定统一 给   caption赋值
   end;

Answer 3

for i:=0   to   Form.componentcount-1  do
 begin
    if (Form.components[i] is TEdit    then
    begin
     TEdit(Form.components[i]).text:'aaaa';
    end;