Problem beim auslesen eines Subitems von ListView

[s14]

Wäre es so nicht richtiger
Wenn Keylist nur einen Eintrag hat würde er ja gar nicht erkannt werden.

Delphi-Quellcode:

function KeyExists(KeyList: TListView; Key: String): Boolean; 
var 
  i: Integer; 
begin 
  Result := false; 
  for i := 0 to KeyList.Items.Count-1 do 
    if KeyList.Items.Item[i].SubItems.Strings[0] = Key then 
    begin
      Result := true;
      Exit; // wenn einer gefunden wird kann man ja auch gleich raus
    end; 
end;