for循环问题

fieldbyname('pic').AsString:=dir;
其中
pic是pic1到pic100 dir是dir1到dir100
 
循环语句怎么写啊 变量怎么定义 谢谢  
var
a,b,i:integer;


for i:=1 to 105 do;
  a:='pic'+i;
  b:='dir'+i;
  if b<>'' then
  begin
  fieldbyname('a').AsString:=b;

这么写的 不对 新手求多多指点 

var
  i: integer;
  sfield,sdir: string;
for i:=1 to 105 do
  begin
  sfield:='pic'+inttostr(i);
  sdir:='dir'+inttostr(i);
  fieldbyname(sfield).asstring:=sdir;
  end;