tombol simpan dalam borlan delphi 7

tombol simpan dalam borlan delphi 7

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
Table1.Append;
Table1.FieldValues['Nip']:=Edit1.Text;
Table1.FieldValues['Nama']:=Edit2.Text;
Table1.FieldValues['tanggal']:=Edit3.DateTime;
if RadioButton1.Checked=true then
Table1.FieldValues['jenis_kelamin']:='L'
else
Table1.FieldValues['jenis_kelamin']:='P';
Table1.FieldValues['No_ponsel']:=Edit4.Text;
Table1.FieldValues['jam']:=Edit5.Text;
Application.MessageBox('data berhasil disimpan !','informasi',64);
Table1.Post;
end;