Thank you very much for your reply！

Excuse me，Ask a question ;)

var
    img: TImageData;
  begin
    Imaging.InitImage(img);
    Imaging.NewImage(512,512,ifBinary, img);
 
    Imaging.SaveImageToFile('Test.bmp', img);
    Imaging.FreeImage(img);
end;


the result 'Test.bmp' is ifR8G8B8

Can not save a black-and-white image of Binary format？

function ImSaveImageToFile(FileName: PAnsiChar; const Image: TImageData): Boolean; cdecl;

Modified to

function ImSaveImageToFile(FileName: PAnsiChar; const Image: PImageData): Boolean; cdecl;
or
function ImSaveImageToFile(FileName: PAnsiChar; var Image: TImageData): Boolean; cdecl;

Delphi Pass a  PImageData pointer to Lazarus
or
var Image

run  is OK  ;D

Delphi create Image:　TImageData;
ImNewImage(256, 256, ifA8R8G8B8, Image);

Passed to Lazarus
Run " TestImage(Image) "

Result is:
LongInt(Image.Width)  1242488        // Should be 256
LongInt(Image.Height)  1243380       //Should be 256
LongInt(Image.Format)  6244311      // Should be 88

Google to Similar problems：
http://community.freepascal.org:10000/bboards/message?message_id=335641&forum_id=24082

Lazarus1.0.2 Compiled  "VampyreImaging.lpi"
Generate "VampyreImaging.dll"

VC++ Run "test.c"
........................
/* save image to Targa format */
ImSaveImageToFile("ctestimage.png", &Img);  //Unable to generate images
DelphiXE3 Call VampyreImaging.dll //Unable to generate images too

but VampyreImaging.dll of DelphiXE3  Generated
generate images is OK.

How do I set Lazarus？

Sorry, my English is poor。  :-[

Your software is very good，Thank you for your unselfish dedication！