(DELPHI) Menambahkan data ke Database

Berikut kodingnya :


procedure TTambahMember.btDAFTARClick(Sender: TObject);
begin
with QMemberBaru do
Begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO member(ID_MEMBER,NAMA_MEMBER,TANGGAL_LAHIR_MEMBER,NO_TELEPON,ALAMAT_MEMBER)' +
'VALUES('''+ID_Anggota.Text+''','''+Nama_Anggota.Text+''','''+Formatdatetime('yyyy-MM-dd',DTPLahir.date)+''','''+No_Telpon.Text+''','''+Alamat.Text+''')');
ExecSQL;
End;
showmessage('Data MEMBER berhasil ditambah..!!!');
tampil;
bersih;
end;