Cómo superponer dos imágenes en una en Delphi ---
bitmap3:= TBitmap.Create;
bitmap3.Height:= bitmap1.Height;
bitmap3.Width:= bitmap1.Width;
BitBlt( bitmap3.Canvas.Handle,0,0,bitmap1.Width,bitmap1.Height,bitmap1.Canvas.Handle,0,0, SRCCOPY);
BitBlt(bitmap3.15,bitmap2 .Width,bitmap2.Height,bitmap2.Canvas.Handle,0,0,SRCCOPY);
bitmap3.SaveToFile('c:\ab.bmp');
bitmap3. Gratis;
end;
Las imágenes en imagen1 e imagen2 deben estar en formato bmp, de lo contrario no serán válidas.