simpan isi fild menggunakan ADODataSet1 dan RadioButton1

procedure TForm4.Button1Click(Sender: TObject);
begin
DM.adodataset1.append;
dm.ADODataSet1['NO_PASIEN']:=EDIT4.Text;
dm.ADODataSet1['NAMA']:=EDIT1.Text;

If RadioButton1.Checked = True Then
dm.ADODataSet1['JK']:='P';
If RadioButton2.Checked = True Then
dm.ADODataSet1['JK']:='L';

dm.ADODataSet1['UMUR']:=EDIT2.Text;
dm.ADODataSet1['ALAMAT']:=EDIT3.Text;
DM.ADODataSet1.Post;
 bersih;
end;