delphi 用ADOquery 删除 数据库中的字段 想弹框提示，但是小弟我实习不了

delphi 用ADOquery 删除 数据库中的字段 想弹框提示，但是我实习不了
procedure TForm1.ZdDeleteClick(Sender: TObject);
begin


  query.Close;
  query.SQL.Clear;
  query.SQL.Text := 'alter table tChildren drop column '+Trim(zdedit.Text);
  query.ExecSQL;
end; 

这个是我删除字段的代码，但是我把字段删除了以后再删除一次就报错，我想用个if 然后如果字段不存在，就弹出一个窗口说字段不存在，请重新输入。。。。

求高端大大指导一下

[解决办法]
你干脆try...except的了，要不还得获取一下字段列表，看看在不在
[解决办法]

Delphi(Pascal) code

判斷一下query.SQL.Add('if col_length(''tChildren'',''+Trim(zdedit.Text)+'') is not null');query.SQL.Add('alter table tChildren drop column '+Trim(zdedit.Text));