Where is error? What is wrong ? :cry:

My simulation is here :

[pascal]var ddck:TDDColorKey; TranspCol :Integer;
..
if DXImageList1.Items.Find('picture1').PatternSurface s[0].ISurface.GetColorKey(DDCKEY_SRCBLT, ddck) = DD_OK then
TranspCol := ddck.dwColorSpaceLowValue;[/pascal]

On picture is really set transparent color clLime $00FF00.

But TranspCol contain stupid color $7E0 :shock:

Why, please?