1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function findListViewItem(Str:String):integer;   
begin
  result:=-1
  for i:=0 to ListView1.Items.Count-1 do begin
    if ListView1.Items[i].Caption = Str then begin
      result:=i;
      exit;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TfrmMain.Button1Click(Sender: TObject);
var
 i: Integer;
begin
  for i := 0 to ListView1.Items.Count - 1 do
   if ListView1.Items[i].Caption = 'MeinString' then
     caption := IntToStr(i);
end;