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

Reply via email to