El siguiente codigo copia todo lo que se encuentre dentro del recuadro de la imagen, incluida la propia imagen y otras imagenes mas pequeñas que se encuentren sobre ella.
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: Tbitmap;
begin
bmp:= Tbitmap.Create;
try
// Supongo que la imagen se llama Image1
bmp.Width:= Image1.Width;
bmp.Height:= Image1.Height;
BitBlt(bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,Canvas.Handle,Image1.Left,Image1.Top,SRCCOPY);
bmp.SaveToFile('c:\test.bmp');
finally
bmp.free;
end;
end;
Otra posible solucion seria crear un bitmap e ir copiando sobre el una a una las imagenes, esta seria una forma mas correcta de hacerlo pero tambien llevaria mas trabajo.
Espero que te sirva