Добавление и редактирование строк в таблице

void __fastcall TForm1::Button2Click(TObject *Sender)     // добавление записи
{
if (Edit1->Text.Length() != 0 && Edit2->Text.Length() != 0)
{
        Form2->Table1->Open();
        Form2->Table1->Append();                                   //добавляем запись
        Form2->Table1Data->AsDateTime = DateTimePicker1->Date;       //дата
        Form2->Table1Summa->AsString = Form1->Edit1->Text;                 //деньги
        Form2->Table1Opis->AsString = Form1->Edit2->Text;                  //комментарий
        Form2->Table1->Post();
        sum = 0;                                                //обнуляем сумму
        Form2->Table1->First();
        while (!Form2->Table1->Eof)
        {
          sum += Form2->Table1Summa->AsInteger;                    //подсчет денег
          Form2->Table1->Next();
        }
        Panel1->Caption = IntToStr(sum);             //выводим общую сумму
        Edit1->Text = "";                                 //обнуляем ввод денег
        Edit2->Text = "";                                   //обнуляем ввод ком.
        Edit1->SetFocus();
}
else ShowMessage ("Введите данные");
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("INSERT INTO rashod (Data, Summa, Opis) VALUES ('"+DateTimePicker1->Date+"', '"+Edit1->Text+"', '"+Edit2->Text+"')");
ADOQuery1->ExecSQL();
}