Strings in ListView vergleichen

[Onkelrossie]

Abend alle zusammen,
ich habe gerade eine Denkblockade.
Ich möchte aus einem ListView die Strings einer Spalte vergleichen und den Spaltenindex der Position
wo ein sich von dem vorherigen Sting unterscheidender neuer String anfängt in eine StringList adden.
Das klappt auch schon ganz gut bis zum ersten "Unterschied" aber ich weiss wie gesagt gerade nicht weiter
wie ich ab dem ersten "Unterschied" dann weiter vergleiche und in die StringList adde.
Hier mal Auszug wo ich gerade bin.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  sl: TStringList;
begin
  sl:= TStringList.Create;
  for i := 0 to ListView1.Items.Count - 1 do
  if not (ListView1.Items[i].SubItems[2] = ListView1.Items[i+1].SubItems[2]) then
  break;
  sl.Add(IntToStr(i+1));
end;

Vieleicht findet sich ja noch zu so später Stunde jemand der mir schnell weiter helfen kann.


HG
Onkelrossie