리스트 박스 관련 질문입니다.

리스트박스에 인쇄할 파일 관련 정보가 있는데요.

예를 들면  
ㅡㅡㅡㅡㅡㅡㅡㅡㅡ
ㅣ doc1, page 1 ㅣ
ㅣ doc2, page 2 ㅣ                      
ㅣ doc3, page 3 ㅣ
ㅡㅡㅡㅡㅡㅡㅡㅡㅡ      

출력버튼을 누르면 리스트에 있는 정보를 읽어서
출력하게 하는 건데요 (출력 부분 소스는 생략)

var              
    strl  : TStringList;
    str   : String;

  for i := 0 to Listbox1.Items.Count -1  do
  begin
        str := Listbox1.Items[ListBox1.ItemIndex + 1];   // **
        strl := TStringList.Create;
        strl.Text := StringReplace(str, ',', #13#10 , [rfReplaceAll] );
  end;


이런식으로 소스를 작성하다 보니까
리스트박스를 아무것도 선택하지 않으면 ** 부분이 에러가 안 생기는데
만약에 doc2를 선택하면 index 값이 1이 되서
** 부분때문에 List Index out of bounds  에러가 생겨요.

어떤식으로 접근해서 해결해야 될까요?