ExportBitmapList example for Delphi

procedure TForm1.btnExportBitmapListClick(Sender: TObject);
var
   nRet: L_INT;
   hExportedBitmapList: HBITMAPLIST;
begin
   // Check if the ImageList control has more than 4 images.
   if(LEADImgList1.Count > 4)then
   begin
      nRet:= LEADImgList1.ExportBitmapList (1, 2, hExportedBitmapList);
      if(nRet = SUCCESS)then
      begin
         // Check if the hExportedBitmapList updated successfully.
         if(hExportedBitmapList <> 0)then
         begin
            LEADImage1.BitmapList:= hExportedBitmapList;
         end;
      end
      else
         ShowMessage('Error: ' + IntToStr(nRet));
      end
   else
      ShowMessage('Try to add more files to the image list control');
end;