(DELPHI) Mengubah Data di Database

Berikut kodingnya :


procedure TDaftarMemberBaru.btUBAHClick(Sender: TObject);
begin
with QMemberBaru do
begin
Close;
SQL.Clear;
SQL.Add('update MEMBER set ID_MEMBER='''+ID_Anggota.Text+''',NAMA_MEMBER='''+Nama_Anggota.Text+''',TANGGAL_LAHIR_MEMBER='''+Formatdatetime('yyyy-mm-dd',DTPLahir.date)+''',NO_TELEPON='''+No_Telpon.Text+''',ALAMAT_MEMBER='''+Alamat.Text+'''where ID_MEMBER='''+ID_anggota.Text+'''');
ExecSQL;
End;
showmessage('Data MEMBER berhasil diubah..!!!');
tampil;
bersih;
end;