Нахождение максимального элемента в DBGrid

procedure TForm1.Button1Click(Sender: TObject);
var max, i: integer;
begin
max:=0;
For i:=0 to Table1.FieldCount-1 do
if Table1Id.Value > max then max:=Table1Id.Value;
max:=max+1;
Table1.Append;
Table1Id.Value:=max;
Table1Name.Value:=Edit1.Text;
Table1.Post;
end;

procedure TForm1.Button1Click(Sender: TObject);
var   max: integer;
      i: integer;
begin
 
if ADOTable1.RecordCount = 0 then
 Begin
   ADOTable1.Insert;
    ADOTable1.Fields.Fields[0].AsInteger := 1;
    ADOTable1['Name']:=Edit1.Text;
   ADOTable1.Post;
 end else
 max := ADOTable1.Fields.Fields[0].AsInteger;
ADOTable1.First;
 for i:=1 to ADOTable1.RecordCount do
  Begin
     if max < ADOTable1.Fields.Fields[0].AsInteger then
        max := ADOTable1.Fields.Fields[0].AsInteger;
  ADOTable1.Next;
  end;
 
  ADOTable1.Insert;
    ADOTable1.Fields.Fields[0].AsInteger := max + 1;
    ADOTable1['Name']:=Edit1.Text;
  ADOTable1.Post;
end;

 with DMBase.adoquery1 do begin
     Close;
     SQL.Clear;
      SQL.Add('Select max(Table1.id) ' +
             'FROM Table1;');
     Open;
    ID := Fields.Fields[0].AsInteger + 1;
     Close;
     SQL.Clear;
     SQL.add(format ( 'INSERT INTO TABLE1  ' +
                    '   ( id, Name ) VALUES (%s,%s) ;',[IntToStr(ID),Name]));
     ExecSQL;
 
end;