＿＿__
　　　　 .ΛΛ. 　 ||:::::::::::||
―――ミ;ﾟДﾟﾐ―||:::::::::::||―ｵｼｴﾃﾓﾗﾀ―
　　 　ミ　　 つ二二ｌニｌ　且
　　　|￣￣|__ﾐ―――――
　　　`ー┬‐''
　　　　　┴
つまり、APIが主っきりバグってると？？

IsDBCSLeadByteがﾆﾎﾟﾝｺﾞの1バイト目発見のための
関数だとすると
普通に考えたら
　　function IsDBCSLeadChar(c:char):boolean;
　　begin
　　　Result:=c in [#$81..#$9f]
　　end;
これじゃだめなのですか？

SJISの仕様とか知らべる気力もないんですが,,,

SysUtilsの20KB増がいやだから
単にByteTypeを作りたいだけなのに、、、