劳烦高手帮看一下代码！老是报错！

for i:=per*page to (page+1)*per-1 do
begin
  with TLabel(FindComponent(NamePrefix + IntToStr(i))) do
  begin
    visible:=true;
    caption:=caption+'fdsadsfafdsadfsa';
  end;
end;
为什么每次运行到visible处时总是报错：
access violation at address 00443f97 in module 'sys.exe'
如将visible行屏蔽则运行正确。但我一定要用到那一行，因此开始赋的是visible:=false,要根据需要显示。