for i := 0 to ListView4.Items.Count do
       begin
          //MessageBox(0, pchar(ListView4.Items[i].SubItems[0]), 'ListView4.Items[i].SubItems[0]', MB_OK);
         if ListView4.Items[i].SubItems[0] = Copy(Recibido,1,Pos('§',Recibido)-1) then
         begin
         Delete(Recibido,1,Pos('§',Recibido));
         ListView4.Items[i].ImageIndex := 11;
         break;
         end;
       end;