Как внести в DBGrid данные через Edit

Form_general.table_student.FieldByName('ID').AsInteger+1;

uses book, student;
 
procedure TForm_general.N2Click(Sender: TObject);
begin
f:=0;
//ïðîâåðÿåì, àêòèâíà ëè íàøà ôîðìà
if ActiveMDIChild.Caption<>'×èòàòåëü'
then begin
//åñëè íåò òî èùåì åå ñðåäè íåàêòèâíûõ  è åñëè íàõîäèì, òî ïîêàçûâàåì åå
for i:=0 to form_general.MDIChildCount-1 do
if form_general.MDIChildren[i].Caption='×èòàòåëü'
then begin
MDIChildren[i].Show;
f:=1;
end;
end
else f:=1;
//åñëè ôîðìà åùå íå ñîçäàíà, òî ñîçäàåì åå
if f<>1 then TForm_student.Create(Application);
end;

procedure TForm_student.Button1Click(Sender: TObject);
begin
Form_general.table_student.Insert;
Form_general.table_student.FieldByName('¹_card').AsInteger:= StrToInt(Edit10.Text);
Form_general.table_student.FieldByName('Surname').AsString:= Edit1.Text;
Form_general.table_student.FieldByName('Name_student').AsString:= Edit2.Text;
Form_general.table_student.FieldByName('Patronymic').AsString:= Edit3.Text;
Form_general.table_student.FieldByName('DOB').AsDateTime:= StrToDate(Edit4.Text);
Form_general.table_student.FieldByName('Street').AsString:= Edit5.Text;
Form_general.table_student.FieldByName('House').AsString:= Edit6.Text;
Form_general.table_student.FieldByName('Room').AsInteger := StrToInt(Edit7.Text);
Form_general.table_student.FieldByName('Tel').AsString:= Edit8.Text;
Form_general.table_student.FieldByName('Passport').AsString:= Edit9.Text;
Form_general.table_student.Post;
Form_general.table_student.Refresh;
end;
 
procedure TForm_student.FormActivate(Sender: TObject);
begin
//óñòàíîâêà ôîêóñà ïðè àêòèâàöèè ôîðìû
dbgrid1.SetFocus;
end;
 
procedure TForm_student.Button2Click(Sender: TObject);
//óäàëåíèå çàïèñè
begin
//åñëè çàïèñè îòñóòñòâóþò òî âûâîäèì ñîîáùåíèå, èíà÷å óäàëÿåì çàïèñü
  if dbgrid1.DataSource.DataSet.RecordCount<>0
  then begin
    if (MessageBox(Handle, 'Óäàëåíèå çàïèñåé ìîæåò ïðèâåñòè ê íàðóøåíèþ ðàáîòû âñåé áàçû äàííûõ. Óäàëèòü çàïèñü?', 'Âíèìàíèå !!!', MB_YESNO)=  IDYES)
    then
    form_general.table_student.Delete
       end
       else ShowMessage('Íåò çàïèñåé äëÿ óäàëåíèÿ');
end;
 
procedure TForm_student.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//ïðîöåäóðà çàêðûòèÿ ôîðìû
  Action:=cafree;
end;
 
procedure TForm_student.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
//ïðîâåðêà íà íàëè÷èå ïóñòûõ çàïèñåé ïåðåä çàêðûòèåì, åñëè òàêèå çàïèñè íàéäåíû òî îòìåíÿåì //çàêðûòèå ôîðìû
begin
 if dbgrid1.DataSource.DataSet.RecordCount<>0
 then begin
if not (form_general.table_student.Locate('Surname', '', [loCaseInsensitive,loPartialKey]))
then  begin form_general.table_student.edit;
form_general.table_studnet.post;
end
 else begin ShowMessage('Ó Âàñ åñòü íå çàïîëíåííûåçàïèñè');
 CanClose:=false;
 dbgrid1.SetFocus;
 end;
end;
end;