Problem beim auslesen eines Subitems von ListView

[Muetze1]

Moin!

Bei Items gehts von 0 bis Count-1, daher dürfte ein RangeError kommen...

Delphi-Quellcode:

function KeyExists(KeyList: TListView; Key: String): Boolean;
var
  i: Integer;
begin
  Result := false;

  if KeyList.Items.Count > 0 then
    begin
      for i := 0 to KeyList.Items.Count-1 do
        begin
          if KeyList.Items.Item[i].SubItems.Strings[0] = Key then
            Result := true
          else
            Result := false;
        end;
    end;
end;

MfG
Muetze1