Error (List Index of bounds)?

[DM2005]

Hola a todos, volviendo a utilizar un poco de ayuda, necesitaria saber pq en mi aplicacion tengo el siguiente error cuando hago doble clique sobre m ListBox:

" List Index of bounds (-1) "


esta es mi procedure:

Código Delphi [-]
 
procedure TFormForm01.FormCreate(Sender: TObject);
begin
     ListBox1.Items.LoadFromFile('C:\teste\IPCapitulo.txt');
end;

Código Delphi [-]
 
procedure TFormForm01.ListBox1DblClick(Sender: TObject);
begin
    Panel2.Visible := True;
    begin
    Panel2.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex];
    end;
end;

gracias y hasta pronto...