Hai dopeline,
Du solltest schon einmal vermeiden das locale Variablen und globale die selbe Bezeichnung haben
Delphi-Quellcode:
var
BackZeile,zeile,spalte:integer;
...
procedure Suche (SuchString:String; ListView:TListView; Zeile:Integer; Button:TButton);
..
zeile:=r+1;
.
.
Aber der Fehler dürfte hier liegen:
For c:=0 to ListView.Columns.Count-1 do
.Columns.Count gibt dir die Anzahl der Spalten zurück (bei 0 beginnend). Du greifst aber "nur" auf die SubItems zu. Also musst Du die erste Spalte auch noch abziehen.
For c:=0 to ListView.Columns.Count - 2 do
Stephan B.
"Lasst den Gänsen ihre Füßchen"