VirtualDAC
Used to specify a user-defined non-Unicode collation that can be applied in an SQL statement.
TVirtualCollationManager
procedure RegisterAnsiCollation(const Name: string; VirtualAnsiCollation: TVirtualAnsiCollationMethod); overload;