You have
B := TGdiBitmap.Create(Size * 2, Size * 2)
But i have error "codebot.interop.windows.gdiplus.pas(11906,45) Error: Can't determine which overloaded function to call"
In my opinion correct version is
B := TGdiBitmap.Create(Size * 2, Size * 2,G)