如何以编程方式将字段添加到 Delphi 中的表格

在我的 Delphi 2009 应用程序中，我需要检查某个字段是否存在以及在应用程序执行期间是否未添加该字段。

我已经弄清楚了该字段的测试，但无法添加字段。我试过这个

var
  fld : TStringField;
begin
  if not ADOConnection1.Connected then
    ADOConnection1.Open;
  fld := TStringField.Create(tbl);
  fld.FieldName := 'test';
  tbl.Fields.Add(fld);
end;

但这不起作用。

尝试这个

 fld:= TStringField.Create(tbl);
    fld.FieldName := 'test';
    fld.DisplayLabel := 'test';
    fld.name := 'test';
    fld.DataSet := tbl;
    fld.Size := 30;
    tbl.Fields.Add(fld);

Bye.