Trabajando con TListView y TListItem

[dec]

Hola,

He sabido hacerlo de este modo, es probable que no halla que dar tantas vueltas, pero, al menos parece funcionar bien.

Código Delphi [-]
uses
   CommCtrl;
 
 function ExisteItemListView(const caption:
   string; listView: TListView) : boolean;
 var
   Info: TLVFindInfo;
 begin
   Info.psz := PChar(caption);
   Info.flags := LVFI_STRING;
   Result := (ListView_FindItem(
     listView.Handle, -1, Info) <> -1);
 end;