//删除注册的ODBC
procedure OBDCDelete(ODBCName:string);
var registerTemp:TRegistry;
begin
   registerTemp := TRegistry.Create;
   with registerTemp do
   begin
   try
     RootKey:=HKEY_LOCAL_MACHINE;
      if OpenKey('Software\ODBC\ODBC.INI\ODBC Data Sources',True) then
       begin //注册一个DSN名称
         DeleteValue(ODBCName);
       end ;
     closeKey;
     registerTemp.DeleteKey('Software\ODBC\ODBC.INI\'+odbcname);
   except
   end;
   end;
   registerTemp.Free;
end;

（出处：www.delphibbs.com）