procedure TForm1.Button1Click(Sender: TObject);
begin
   try
     adotable1.Insert;
     adotable1.FieldValues['id1'] := edit1.Text;
     adotable1.FieldValues['name'] := edit2.Text;
     adotable1.Post;
     messagedlg('Save is complete',mtinformation,[mbok],0);
   except
     on E : exception do
     begin
        messagedlg('the error is '+e.Message,mterror,[mbok],0);
     end;
   end;
end;