3, 17, 17, 17, 18, 18,
    19, 20, 20, 20, 20, 21, 17, 18,
    20, 23, 23, 16, 17, 23
    (* F8 *));

function GetGB2312StrokeCount(mWideChar: string): Integer;
var
  vOffset: Word;
begin
  Result := -1;
  if (Length(mWideChar) < 2) then Exit;
  if (mWideChar < #$B0) or (mWideChar > #$F7) or (mWideChar < #$A1) or
    (mWideChar > #$FE) then Exit;
  vOffset := (Ord(mWideChar) - $B0) * ($FE - $A0) + (Ord(mWideChar) - $A1);
  if vOffset > High(cGB2312StrokeCount) then Exit;
  Result := cGB2312StrokeCount[vOffset];
end; { GetGB2312StrokeCount }

end.