Изменения в бд сохраняются только до завершения работы

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit5.h"
#include "Unit2.h"
#include "Unit1.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TShowClient *ShowClient;
extern int IndicationClick;
//---------------------------------------------------------------------------
__fastcall TShowClient::TShowClient(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TShowClient::BitBtn3Click(TObject *Sender)
{
if (Edit1->Text==""||Edit2->Text==""||Edit3->Text==""||MaskEdit1->Text==""||Edit5->Text==""||Edit6->Text=="")
{
ShowMessage("Вы не заполнили все обязательные поля!");
return;
}
Client->TableClient->Append();
Client->TableClient->FieldByName("FirmName")->AsString=Edit1->Text;
Client->TableClient->FieldByName("Abbreviation")->AsString=Edit2->Text;
Client->TableClient->FieldByName("Driver")->AsString=LabeledEdit6->Text;
Client->TableClient->FieldByName("ContactPerson")->AsString=Edit3->Text;
Client->TableClient->FieldByName("Telephone")->AsString=MaskEdit1->Text;
Client->TableClient->FieldByName("Facs")->AsString=LabeledEdit1->Text;
Client->TableClient->FieldByName("Site")->AsString=LabeledEdit3->Text;
Client->TableClient->FieldByName("E-mail")->AsString=LabeledEdit2->Text;
Client->TableClient->FieldByName("FactAddress")->AsString=LabeledEdit5->Text;
Client->TableClient->FieldByName("UrAddress")->AsString=LabeledEdit4->Text;
Client->TableClient->FieldByName("INN")->AsInteger=StrToInt(Edit5->Text);
Client->TableClient->FieldByName("OKPO")->AsInteger=StrToInt(Edit6->Text);
Client->TableClient->Post();
ShowClient->Close();
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TShowClient::FormClose(TObject *Sender,
      TCloseAction &Action)
{
if (IndicationClick==1){
GolMenu->Enabled=true;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TShowClient::Edit5KeyPress(TObject *Sender, char &Key)
{
if(isalpha(Key)){Key=0;}
}