var
AImage: TLazIntfImage;
lRawImage: TRawImage;
begin
lRawImage.Init;
lRawImage.Description.Init_BPP32_A8R8G8B8_BIO_TTB(100, 100);
lRawImage.CreateData(False);
AImage := TLazIntfImage.Create(0, 0);
try
//AImage.DataDescription := GetDescriptionFromDevice(0);
//AImage.SetSize(0, 0);
AImage.SetRawImage(lRawImage);
try
ImgMain.Picture.Bitmap.LoadFromIntfImage(AImage); // ---division by zero here when using 24bpp image---
except
on E: Exception do
ShowMessage('An exception was raised: ' + E.Message);
end;
finally
AImage.Free;
end;