[Error] Unit3.pas(310): Record, object or class type required

根据你提供的错误信息，问题出现在第310行，错误提示为“需要记录、对象或类类型”。

这个错误通常是因为在使用“with”语句时，尝试访问一个不适合的类型。根据你提供的代码，我们可以看到第310行代码中使用了`with DBGrid1.Columns.Add do`，这里的`DBGrid1.Columns.Add`并不是一个类，不能直接使用`with`语句。

为了解决这个问题，你可以将`with`语句替换为直接引用`DBGrid1.Columns.Add`并设置属性。

修改后的代码示例如下：

procedure TForm1.FillDBGrid;
var
  tableName: string;
  fieldName: string;
  fieldLength: Integer;
  fieldType: TFieldType;
  isNullable: Boolean;
  i: Integer;
  column: TColumn;
begin
  tableName := ComboBox1.Text; // 获取选择的表名

  // 清空 DBGrid 中的数据
  DBGrid1.DataSource := nil;
  DBGrid1.Columns.Clear;

  // 根据表名连接到数据库
  // ...

  // 获取字段信息并填充到 DBGrid 中
  for i := 0 to Edit1.Text.Length - 1 do
  begin
    fieldName := Edit1.Text[i + 1]; // 获取字段名称
    fieldLength := GetFieldLength(tableName, fieldName); // 获取字段长度
    fieldType := GetFieldType(tableName, fieldName); // 获取字段数据类型
    isNullable := IsFieldNullable(tableName, fieldName); // 获取字段是否可为空

    // 创建新的 DBGridColumn
    column := DBGrid1.Columns.Add;
    column.FieldName := fieldName; // 设置字段名称
    column.Title.Caption := fieldName; // 设置列标题为字段名称
    column.Width := fieldLength * 10; // 根据字段长度设置列宽度

    // 根据字段数据类型设置对应的显示格式
    case fieldType of
      ftString, ftWideString:
        column.DisplayFormat := 's'; // 字符串类型显示格式
      ftInteger, ftSmallint, ftWord:
        column.DisplayFormat := '0'; // 整数类型显示格式
      ftFloat:
        column.DisplayFormat := '0.00'; // 浮点类型显示格式
      ftDate, ftTime, ftDateTime:
        column.DisplayFormat := 'yyyy-mm-dd'; // 日期时间类型显示格式
    end;

    if not isNullable then
      column.Title.Font.Style := [fsBold]; // 如果字段不可为空，则设置标题为粗体
  end;

  // 设置 DBGrid 的数据源
  DBGrid1.DataSource := DataSource1;
end;

请根据你的具体需求和数据库连接的方式，修改代码中的注释部分，并确保你使用了正确的属性和方法。

如果还有其他问题，请随时提问。我会尽力帮助你解决问题。