急！！动态添加数据库表的列的问题！

我想在载入一张表以后给它添加上另外的一列，这样写对不对？
procedure TForm1.Button2Click(Sender: TObject);
begin
  table1.Active:=false;
  if opendialog1.Execute then begin
  caption:=Opendialog1.FileName;
  table1.TableName:=Opendialog1.FileName;
  table1.FieldDefs.Add('Choosen',ftString,1,false);
  Filename:=OpenDialog1.Filename;
  table1.Active:=true;
end;
end;