Si el ListView se llama MiListView, debes poner el código para el borrado en el evento OnDeleteItem.
Qudaría más o menos así:
Código Delphi
[-]
procedure TFMCarrito.MiListViewDeleteItem(Sender: TObject; AIndex: Integer);
var
Str:String;
begin
for var I:integer := 0 to (MiListView.Items[AIndex].Objects.Count-1) do
if (MiListView.Items[AIndex].Objects[i] is TListItemText) then
Str := TListItemText(MiListView.Items[AIndex].Objects[i]).Text;
Label21.Text := (Str);
end;