[Lazarus] Fastest way to show an image buffer

[Leonardo M. Ramé]

Hi, I'm using this routine to show an image buffer in a TImage, but it
is not fast enough for my needs.

lBufStream := TMemoryStream.Create;
lBufStream.Write(lBuffer^, lBufSize);
lBufStream.Position := 0;
Image1.Picture.LoadFromStream(lBufStream);
Image1.Invalidate;
lBufStream.Free;

Here http://www.efg2.com/Lab/ImageProcessing/Scanline.htm are many
methods, and the one on Listing 15, "Optimized Way to Fill Scanlines
from In-Memory Array of Integers" looks very interesting, but it does
not work on Lazarus, any alternative?.

-- 
Leonardo M. Ramé
http://leonardorame.blogspot.com