fixed work with sets and renamed a grayscale color conversion function

[AndrewBJ]

The problem with a clMaroon(=$00000080) parameter which is TColor but a function (AGrayScale : Byte) called

function  MakeColor( AColor : TColor ) : TAlphaColor; overload;
function  MakeColor( AGrayScale : Byte ) : TAlphaColor; overload;

A grayscale functions shouldis renamed to MakeGrayScaleColor since there is already such a function for make a grayscale color

Incorrect conversion of sets to integers, which led to passing garbage values to api, and as a result - unstable work. Conversions PInteger(@ASet)^ are changed to SetToInt(ASet, SizeOf(ASet))