ListView'da Access Violation

[ulu coder]

S.A.
ListView'da seçili olan Item'ın Caption değerini fonksiyonla almaya çalışıyorum Access Violation hatası veriyor.
Sebebi ne olabilir, nereleri kontrol etmeliyim?

Kod: Tümünü seç

function TfrmMain.GetCurrentUnitName: String;
begin
  Result := lsvComputers.Selected.Caption;
end;//GetCurrentUnitName

ve

Kod: Tümünü seç

function TfrmMain.GetCurrentUnitName: String;
begin
  Result := lsvComputers.Items.Item[lsvComputers.ItemIndex].Caption;
end;//GetCurrentUnitName

Not:
Itemları şu şekilde ekliyorum bundan dolayı olabilir mi?

Kod: Tümünü seç

procedure TfrmMain.AddComputer(Name: String);
  var
    ItemNo: Integer;
begin
  with lsvComputers.Items do
  begin
    Add;
    ItemNo := Count-1;
    Item[ItemNo].Caption:=Name;
  end;//with
end;//AddComputer

[ulu coder]

if ItemIndex <> -1 then ekleyince çözüldü.
Ama bu fonksiyon listView'da Item'a tıklayınca çalışıyor sadece, ItemIndex = -1 olamaz ki! Hadi diyelim ki oluyor, ben bu satırı ekleyince fonksiyonun çalışmaması lazım.

[mrmarman]

Sorguna procedure/function 'a ilk satırda aşağıdaki kodu eklersen çalışır...

Kod: Tümünü seç

If lsvComputers.Selected = Nil then Exit;