Bantu Selesaikan Error Delete Pada ListView Pada Delphi 10 CE

Pada listview saya kasih koding untuk menghapus data dari database (MySQL), posisi database ada dihosting,  menggunakan RestRequest pada event ondeletingitem, saat saya coba data berhasil dihapus di database dan item pada listview nya juga terhapus, namun saat saya hapus pada item terakhir atau yang paling bawah malah error "Out Of Range" gitu.

btw, saya menggunakan livebinding

berikut kodingnya

RESTRequest1.Params.ParameterByName('tanggal').Value :=  (Sender as TListView).Items[AIndex].Text;
 RESTRequest1.Execute;
 RESTRequest2.Execute;
ACanDelete := False;