읽은 값을 listbox에 추가를 할려고 하는데 실행 도중 에러 발생 도움 요청



===== 소스 ========

procedure TForm1.inifilechk;

var syscomm: TiniFile;

pgnm, pgnm1: string;

vList: TStringList;

Cnt, vCnt: integer;

begin

vCnt := 0;

Cnt := 0;

pgnm := Exe_Path + 'vchk.ini';



SysComm := Tinifile.Create(pgnm);



Cnt := syscomm.ReadInteger('Count','Cnt',0);

vList := TStringList.Create;

syscomm.ReadSection('Version',vList);

//listb.Items.AddStrings(vList);



while vCnt < Cnt do

begin

pgnm1 := vList[vCnt]; <== 에러나는 위치(out of bound)

listb.Items.Add(pgnm1);

vCnt := vCnt + 1;

end;

vList.Free;

end;



고수님 부탁드립니다.

ini화일은 아래와 같이



vchk.ini

[Version]

1.exe

2.exe

3.exe

.

.

.

[Count]

Cnt=22