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;