Cara Insert Data ke Database dengan Delphi Menggunakan AdoQu

with AdoQuery1 do begin
  Close;
  SQL.Clear;
  SQL.Text:= 'INSERT INTO spp (nis,nama,tanggal_lhr) '+' VALUES (:parNIS, :parNama, :parTanggal_lhr)';
  parameters.ParamByName('parNIS').Value:= Edit1.Text;
  parameters.ParamByName('parNama').Value:= Edit2.Text;
  parameters.ParamByName('parTanggal_lhr').Value:= FormatDateTime('yyyy/mm/dd',DateTimePicker1.Date);
  ExecSQL;
  end;
with AdoQuery1 do begin
  Close;
  SQL.Clear;
  SQL.Text:='SELECT*FROM spp';
  Open;
end;