如何判断table是否存在?RemoveDir怎么不好使？

//No.1
procedure TForm1.Button1Click(Sender: TObject);
const
  cTableName = '<表名>';
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := Format(
'SELECT COUNT(*) AS Cnt'#13#10 +
'FROM sysobjects'#13#10 +
'WHERE NAME=%s AND TYPE=''U'''#13#10,
   [QuotedStr(cTableName)]);
  ADOQuery1.Open;
  if ADOQuery1.FieldByName('Cnt').AsInteger > 0 then
    ShowMessage(cTableName + '存在')
  else ShowMessage(cTableName + '不存在');
  ADOQuery1.Close;
end;