Текущая запись в gride

[amator_roma]

Прикол вот в чом есть есть форма в которой добавляються записи в базу аццесс подключеную с пом. adoquery. Кнопка добавления записей вот

procedure TForm2.Button1Click(Sender: TObject);
begin
  Edit8.Text := FormatDateTime('dd.mm.yyyy', DateTimePicker1.Date);
  Edit9.Text := FormatDateTime('dd.mm.yyyy', DateTimePicker2.Date);
  {form1.edit1.Text:=Edit1.Text;}
 if trim(Edit1.Text) <>'' then
begin
    form1.ADOquery1.Open;
    form1.ADOquery1.Append;
    form1.ADOquery1.FieldByName('Name').Value := Edit1.Text;
    form1.ADOquery1.FieldByName('Adresa').Value := Edit2.Text;
    form1.ADOquery1.FieldByName('Telefon').Value := Edit3.Text;
    form1.ADOquery1.FieldByName('Kontaktna_osoba').Value := Edit4.Text;
    form1.ADOquery1.FieldByName('e_mail').Value := Edit5.Text;
    form1.ADOquery1.FieldByName('faks').Value := Edit6.Text;
    form1.ADOquery1.FieldByName('Nazva_productu').Value := Combobox1.Text;
    form1.ADOquery1.FieldByName('Tex_pidtrumka').Value := Edit9.Text;
    {Edit8.Text := FormatDateTime('dd.mm.yyyy', DateTimePicker1.Date);}
    {Edit8.Text := DateTimeToStr(DateTimePicker1.value) ;
    edit8.Text:=formatdatetime('dd-mm-yy', datetimepicker1.Date);}
    form1.ADOquery1.FieldByName('data').Value := edit8.Text;
    form1.ADOquery1.FieldByName('Kilkist_mest').Value := combobox2.Text;
    form1.ADOquery1.FieldByName('Notatku').Value := edit11.Text;
    form1.ADOquery1.Post;
    form1.DBGrideh1.Columns[0].Width:= 30;
    form1.DBGrideh1.Columns[1].Width:= 350;
    form1.DBGrideh1.Columns[2].Visible:=False;
    form1.DBGrideh1.Columns[3].Width:= 150;
    form1.DBGrideh1.Columns[4].Width:= 200;
    form1.DBGrideh1.Columns[5].Width:= 100;
    form1.DBGrideh1.Columns[6].Width:= 100;
    form1.DBGrideh1.Columns[7].Width:= 150;
    form1.DBGrideh1.Columns[8].Width:= 70;
    form1.DBGrideh1.Columns[9].Width:= 100;
    form1.DBGrideh1.Columns[10].Width:= 100;
    form1.DBGrideh1.Columns[11].Width:= 50;
    {form1.ADOQuery1.Close;
    form1.ADOQuery1.sql.text:= 'SELECT * FROM Customer Order by Name';
    form1.ADOQuery1.Open; }
    form2.Close;



end else
   ShowMessage('Ïîìèëêà ââåäåííÿ:Ââåäåí³ íåâ³ðí³ äàí³!')


end;

Как с огромного списка в gride мне показало именно мою запись. и есть маленькая проблемка с edit если я добавляю несколько записей сразу то они не обновляються а остаэтся предыдущая запись. Как ето исправить?
Прозьба не нужно большой критики по поводу кода я только учусь

[Sparky]

пи открытии формы чистите edit

[amator_roma]

обновлениэ я зделел

edit.clear;

А с текущей записью проблема.
Может текущюю запись найти через sql запрос по записях внесеных сегодня?