Sorry, He's not finish
I am not sure but this test. var BmpResult: TBitmap; begin ... ... BmpResult:=TBitmap.Create; BmpResult.LoadFromIntfImage( ScanLineImage ); Result:=BmpResult; ScanLineImage.Free; Not BmpResult.Free in function -- Laurent. My Components: http://wiki.lazarus.freepascal.org/Wile64 French Forum : http://lazforum-fr.tuxfamily.org/index.php