[look]

Encontre este codigo, con el logro unir varias imagenes pero al guardar la imagen se guarda con fondo blanco y no transparente, hay alguna mera de solucionar esto?

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  png1, png2, png3: TPNGObject;
  bmp: TBitmap;
begin
  png1 := TPNGObject.Create; //no error-handling just for testing
  png2 := TPNGObject.Create;
  png3 := TPNGObject.Create;

  png1.LoadFromFile('c:\a.png');
  png2.LoadFromFile('c:\b.png');
  png3.LoadFromFile('c:\c.png');

  bmp:= TBitmap.Create;
  bmp.Width:= png3.Width;
  bmp.Height:= png3.Height;
  bmp.PixelFormat:= pf24bit;

  // Clear background with form's color
  bmp.Canvas.Brush.Color:= Color;
  bmp.Canvas.FillRect(Rect(0, 0, bmp.Width, bmp.Height));


  png3.Draw(bmp.Canvas, Rect(0, 0, png3.Width, png3.Height));
  png1.Draw(bmp.Canvas, Rect(0, 0, png1.Width, png1.Height));
  png2.Draw(bmp.Canvas, Rect(0, 0, png2.Width+30, png2.Height));

  Image1.Picture.Assign(bmp); //display it on a TImage component
  Image1.Picture.SaveToFile('c:\abc.png');
  bmp.Free;
  png1.Free;
  png2.Free;
  png3.Free;