1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure SaveBitmap32ToPNG(fname: string; bm32: TBitmap32; paletted, transparent: Boolean; bgcolor: TColor; compression:Integer = 9);
var
  bm: TBitmap;
  png: TPngObject;
  TRNS: TCHUNKtRNS;
  p: pngimage.PByteArray;
begin
  bm := nil;
  png := nil;
  try
    bm := TBitmap.Create;
    png := TPngObject.Create;
    //
    bm.Assign(bm32);
    bm.PixelFormat := pf1bit;
    //
    png.InterlaceMethod := imNone;
    png.CompressionLevel := compression;
    png.Assign(bm); //Convert data into png
    //
    if transparent then 
     begin
      if png.Header.ColorType in [COLOR_PALETTE] then
       begin
        if (png.Chunks.ItemFromClass(TChunktRNS) = nil)then
         png.CreateAlpha();
        TRNS := png.Chunks.ItemFromClass(TChunktRNS) as TChunktRNS;
        if Assigned(TRNS) then TRNS.TransparentColor := bgcolor;
      end;
    end;
   png.SaveToFile(fname);
  finally
    if Assigned(bm) then bm.Free;
    if Assigned(png) then png.Free;
  end
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

...
For i:=0 to someValue do
 begin
  b32_buffer.LoadFromFile(someFile);
  // Hier findet Verarbeitung der Datei statt...
  Do some work on b32_buffer...
  SaveBitmap32ToPNG(someFile, b32_buffer, false, true, 16777215);
 end;
...					

1:

 bm.PixelFormat := pf1bit;