[Юрка]

Есть 2 процедуры, одна пишет данные из listBox в ini файл, другая наоборот, считывает из ini в listBox. Как раз при чтении происходит ошибка: List index out of bounds (0)

Код:

procedure TForm1.N18Click(Sender: TObject);        //сохранить список
var
  F: TIniFile;
  i:integer;
begin
if ListBox1.Count>0 then
 begin
  F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'PlayList.ini');
  F.EraseSection('Track');

 for i := 0 to ListBox1.Count - 1 do
 F.WriteString('Track', InttoStr(i), ListBox1.Items[i]);
end;
end;

procedure TForm1.N19Click(Sender: TObject);  //восстановить список
var
  F: TIniFile;
  i:integer;
  begin
if listBox2.Visible then
  begin
  ListBox1.Clear;
  ListBox2.Clear;
  begin
  i:=0;
    F := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'PlayList.ini');
  Repeat
   ListBox1.Items.Add(F.ReadString('Track',Inttostr(i),  ListBox1.Items[i]));
   listbox2.Items.Add(ExtractFileName(listBox1.Items[i]));
   i:=i+1;
    Until(EOF) ;

  end;
  end;

end;

Для примера - это запись плейлиста в файл.
Помогите пожалуйста.