Transparentes PNG zu BMP

[schwa226]

Kann mir jemand helfen? Bekomme es einfach nicht hin

Code:

procedure TForm4.Button5Click(Sender: TObject);
type

  TRGBQuads = array[0..0] of Longword; 
  PRGBQuads = ^TRGBQuads; 

var

  Bitmap: TBitmap;
  PNG: TPNGObject;
  i,y:integer;
  Src1Line, Src2Line, ResultLine: PRGBQuads;
begin

  PNG := TPNGObject.Create;
  Bitmap := TBitmap.Create;

  try
    PNG.LoadFromFile('c:\Test.png');

    Bitmap.Height := PNG.Height;
    Bitmap.Width := PNG.Width;

    for i := 0 to PNG.Height - 1 do
    begin

      Src1Line := PNG.ScanLine[i];
      Src2Line := Bitmap.ScanLine[i];

      for y := 0 to PNG.Width -1 do begin
        Src2Line[y] := Src1Line[y];
      end;

    end;

    Image1.Picture.Assign(Bitmap);
      

  finally 
    PNG.Free;
    Bitmap.Free;
  end

end;

Jedoch bleibt Image1 weiß! Komm nicht weiter ein Transparentes PNG richtig in ein BMP zu kopieren...