16Bit grayscaled PNG

Znalazłem PNG-Component dla Delphi.

Ale mam problem

Próbuje tym zrobić 16Bit grayscaled PNG…

Ale to nie działa, może ktoś sie tym kiedyś bawił i mógłby mi pomóc ?

korzystałem z tych stron :

http://www.libpng.org/pub/png/pngsuite.html

http://www.libpng.org/pub/png/libpng-1.2.5-manual.html#section-4.1

Tutaj Source

var 

        png: tpngobject; 

        i : INTEGER; 

        j : INTEGER; 

        Row: pByteArray;

begin

        png := tpngobject.createblank(COLOR_GRAYSCALE{ALPHA} , 16{8}, 255

255);//2 Byte

        FOR j := 0 TO HEIGHT-1 DO 

        BEGIN 

                Row := png.Scanline[j]; 

                FOR i := 0 TO (WIDTH * 2)-1 DO 

                BEGIN 

                try 

                        Row[i] := PBYTE(RAW)^; 

                except 


                end; 

                Inc(Integer(RAW)); 

                END 

        END;

end;

problem polega na tym, ze nie tworzy 16 bitowego PNG tylko 8

Proszę o pomoc