怎样根据组件名访问组件

怎么通过组件名访问组件呢？
如何根据组件的名称访问？我的窗体上有14个相同的Frame名字为f1-f14，每个frame里都有Edit1，现在想用循环把值传到reportmachine中，怎么做？var
  sxh,wh,wjmc,rq,yh:string｛顺序号，文号，文件名称，日期，页号｝
  fra:string
for i := 1 to 14 do
begin
  sxh := 'sxh'+intToStr(i);
  fra := 'f'+intToStr(i);
  rmvariables[sxh] := fra.edit1??????
?????????????想通过名字访问组件
end;