1,应当是
try ADOConnection.Connected := True;
在Delphi中用try..except有时候无法捕捉到一些异常,如DBEdit,设置MaskEidt为日期格式,在编辑框中输入完全的非法日期格式时。
2,好象没有
3,ADOC.GetTableNames(ComboBox1.Items, False);//第二个参数设为True则导出所有数据表
4,uses  Registry;var
  reg: TRegistry;
begin
  try
    reg := TRegistry.Create;
    try
      reg.RootKey := HKEY_CLASSES_ROOT;
      reg.OpenKey('*\Shell\Sure', true);        
      reg.WriteString('', 'Open with SureMp6'); 
    finally
      reg.Free;
    end;
end;