var i: Integer; edt: TEdit; begin for i := 1 to 20 do begin edt := FindComponent('Edit' IntToStr(i)) as TEdit; edt.Text := '第 ' IntToStr(i)) ' 個 Edit'); end; end;