(DELPHI) Menghapus Data di Database

Berikut kodingnya :



procedure TDaftarMemberBaru.btHAPUSClick(Sender: TObject);
begin
with QMemberBaru do
begin
Close;
SQL.Clear;
SQL.Add('delete from MEMBER where ID_MEMBER like '''+ID_Anggota.Text+'''');
ExecSQL;
end;
showmessage('Data MEMBER berhasil dihapus..!!!');
tampil;
bersih;
end;