Последняя запись в столбца DBGrid

void __fastcall TForm5::Button1Click(TObject *Sender)
{
//Новая запись
Panel1->Visible=false;
Panel2->Visible=true;
GroupBox1->Visible=true;//сделать группу1 видимой характеристики записи
ADODataSet1->Insert();
DBGrid1->Visible=false;
Form5->ClientHeight=285;
Form5->ClientWidth=438;
GroupBox1->Top=0;
Panel2->Top=0;
}
 
//---------------------------------------------------------------------------
void __fastcall TForm5::Button5Click(TObject *Sender)
{
//Сохранить в базе при вводе новой и изменении
//Проверка всех введенных данных
 if(DBEdit1->Text=="" )//проверка введенных данных
    {ShowMessage("Введите код !");//вывод диалогового окна с сообщением
     return;//выход из процедуры
    }
  if(DBEdit2->Text=="" )//проверка введенных данных
    {ShowMessage("Введите название !");//вывод диалогового окна с сообщением
     return;//выход из процедуры
    }
  if(DBEdit3->Text=="" )//проверка введенных данных
    {ShowMessage("Введите наименование !");//вывод диалогового окна с сообщением
     return;//выход из процедуры
     }
  if(DBEdit4->Text=="" )//проверка введенных данных
    {ShowMessage("Введите характеристику !");//вывод диалогового окна с сообщением
     return;//выход из процедуры
     }
  if(DBEdit5->Text=="" )//проверка введенных данных
    {ShowMessage("Введите наименование !");//вывод диалогового окна с сообщением
     return;//выход из процедуры
     }
 
//-----------------------------------------
DBEdit3->Text = DBComboBox1->Text;
DBEdit4->Text = DBComboBox2->Text;
 
DBGrid1->Visible=true;
Form5->ClientHeight=462;
Form5->ClientWidth=714;
GroupBox1->Top=179;
Panel2->Top=377;
ADODataSet1->Post();//запомнить все изменения в таблице БД
Panel1->Visible=true;//сделать панель видимой
Panel2->Visible=false;//сделать панель невидимой
GroupBox1->Visible=false;//сделать панель невидимой
}