ListView и Access violation

[Ronder]

На форму поставлен ListView, Edit и Button. ListView изначально невидим. При клике на Button Visible у ListView становится True, и когда пользователь выбирает элемент, его Caption записывается в Edit.
Когда выбираешь элемент ListView первый раз всё нормально, а на второй раз вылетает ошибка Access violation...

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListView1.Visible := True;
end;

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  ListView1.Visible := False;
  Form1.Edit1.Text := ListView1.Selected.Caption;
end;

В чём может быть причина?

[Alter]

procedure TForm1.Button1Click(Sender: TObject);
begin
  LV1.Visible := True;
end;

procedure TForm1.LV1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
  LV1.Visible := False;
  if LV1.Selected<>nil then
   Edit1.Text := LV1.Selected.Caption;
end;

[Ronder]

Большое спасибо!

[Ronder]

Опять возникла проблема с элементом ListView.
В цикле пытаюсь поменять иконки элементов:

for i := 0 to Form1.sUserList.Items.Count do
    if Form1.sUserList.Items[i].Caption = nick then
         Form1.sUserList.Items[i].ImageIndex = 2;

Выскакивает всё тот же Access violation :-(

[Ronder]

С проблемой разобрался:

    for i := 0 to Form1.sUserList.Items.Count do
      if Form1.sUserList.Items[i].Caption = nick then
      begin
        Form1.sUserList.Items[i].ImageIndex := 2;
        break;
      end;

[Пепел Феникса]

не думаю...ошибку так и не нашли...
номер последнего элемента это

Form1.sUserList.Items.Count-1

а не то что у вас.

[Ronder]

Точно, не заметил. Спасибо.