Вот как надо http://forum.hiasm.net/forum_serv.php?q=56&id=4313
Вот как оно рисует http://forum.hiasm.net/forum_serv.php?q=56&id=4314
Вот та самая картинка http://forum.hiasm.net/forum_serv.php?q=56&id=4315
------------ Дoбавленo в 21.31:
function ARGBtoRGBA(ARGB: DWORD): DWORD;
var
A, R, G, B: Byte;
begin
ARGBtoColorChannels(ARGB, A, R, G, B);
Result := R or (G shl 8) or (B shl 16) or (A shl 24);
end;