Dear Master Delphi or Any Programmer yg bisa bantu

Sy lagi buat tugas program sewa alat berat menggunakan delphi tp saya menemui kendala.

Sebelum sy utarakan masalahnya sy akan uraikan dulu beberapa hal:
1. Saya buat 4 tabel (tblloan, tblalat, tblsewa, tbltmpsewa)
2. Bahasa pemrograman delphi, databases Access dengan ADO

dalam program input,edit,delete (loan,alat, serta sewa) sudah tidak masalah
transaksi untuk mengembalikan alat pun sudah tidak masalah.

yang menjadi masalah saya ketika sang penyawa alat menyewa alat lebih dari satu saya mengelami kendala karena yang bisa sy kembalikan hanya 1 alat saja.

potongan scriptnya sbb:
Qalat.SQL.Add('update tblalat set status='0' where kodealat="'+DBgrid1.Fields[0].AsString+'"');

status=1 // dipinjam
status=0 //tdk dipinjam

dgn script diatas data di dbgrid hanya alat yg digrid select yang terupdate

kodealat nama
STR0001 dozer //status=0
STR0002 loader //tidak berubah
sy akalin dengan menekan shift tp tetap tdk bisa.
saya ingin semua alat yang ada di dbgrid tsb statusnya terupdate menjadi=0

ada yg bisa kasi solusi..? (maklum newbe lg belajar)

terima kasih sebelumnya, mohon maaf