Problem beim auslesen eines Subitems von ListView

[sharkx]

hallo !

Schlagt mich, tretet mich, aber ich steh aufm schlauch *g*

Read Error, irgendwas .. auf jeden kakkt er da beim lesen immer ab

Delphi-Quellcode:

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

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