TSQLSchemaInfo = record
  FType: TSchemaType;
  ObjectName: WideString;
  Pattern: WideString;
  PackageName: WideString;
end;

struct TSQLSchemaInfo {
  TSchemaType FType;
  BSTR ObjectName;
  BSTR Pattern;
  BSTR PackageName;
};