[Error] Unit3.pas(332): Undeclared identifier: 'DisplayFormat'

对不起，我之前给出的代码示例中可能存在错误。根据你提供的错误信息，问题出现在第332行，涉及到未声明的标识符 "DisplayFormat"。

在 Delphi 中，DBGrid.Columns.Add 方法并没有直接提供 DisplayFormat 属性来设置列的显示格式。相反，你可以通过使用 TField 对象来设置字段的显示格式，然后将 TField 对象与 DBGrid 的列关联起来。

下面是修改后的代码示例：

procedure TForm1.FillDBGrid;
var
  tableName: string;
  fieldName: string;
  fieldLength: Integer;
  fieldType: TFieldType;
  isNullable: Boolean;
  i: Integer;
  field: TField;
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); // 获取字段是否可为空

    field := ADOQuery1.FieldByName(fieldName);
    if Assigned(field) then
    begin
      // 创建新的 DBGridColumn
      with DBGrid1.Columns.Add do
      begin
        FieldName := fieldName; // 设置字段名称
        Title.Caption := fieldName; // 设置列标题为字段名称
        Width := fieldLength * 10; // 根据字段长度设置列宽度

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

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

        Visible := True; // 设置列可见
      end;
    end;
  end;

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

请注意，我添加了一个名为 `field` 的 `TField` 变量，并使用 `ADOQuery1.FieldByName(fieldName)` 获取字段对象。然后，我在设置列的显示格式时，使用 `field.DisplayFormat` 来设置字段的显示格式。

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

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