For iCounter:=1 to MaxNumber do
Begin
   VPhone:=inifile.ReadString('FreePhones',IntToStr(iCounter),'0');
   ……
End;