"Cortar" un bitmap

[MON___]

Supongamos que en una DLL tengo un bitmap de 32x16 pixeles. Creo un objeto TBitmap y cargo en él la imagen mediante la función del API "loadBitmap".
Supongamos que una vez cargada la imagen en ese primer TBitmap, creo un segundo objeto TBitmap en el que quiero mostrar la mitad del ancho de la imagen cargada desde la DLL. ¿Sé que esto podría realizarse del siguiente modo?

var
Bitmap1, Bitmap2 : TBitmap;
x, y : integer;
begin
Bitmap1 := TBitmap1.create;
try
Bitmap1.handle := loadBitmap(El_Handle_de_la_DLL, 'LA_IMAGEN');
Bitmap2 := TBitmap2.create;
try
Bitmap2.width := 16;
Bitmap2.height := 16;
for x := 1 to 16 do // ancho
for y := 1 to 16 do // alto
bitmap2.canvas.pixels[x, y] := bitmap1.canvas.pixels[x, y];
finally
Bitmap2.Free;
end;
finally
Bitmap1.Free;
end;
end;

Bueno, creo recordar que hace años esta tarea la realizaba sin la necesidad de recurrir a la claúsula FOR. ¿Estoy confundido o, en efecto, existe otra forma de realizarlo? He revisado la ayuda del objeto TCANVAS y en principio no he encontrado nada al respecto.

Un saludo

[xEsk]

Creo que seria mas fácil usando:procedure TCanvas.CopyRect(const Dest: TRect; Canvas: TCanvas;
const Source: TRect);

Te he hecho un ejemplo sencillo, para que veas su funcionamiento:

var
Dest, Source: TRect;

begin
// posición dónde se copiará la imagen
Dest.Left:=0;
Dest.Top:=0;
Dest.Right:=Image1.Width div 2;
Dest.Bottom:=Image1.Height;

// que región debe copiar? (o puedes sustituir todo este tocho por: Source:=Dest; )
Source.Left:=0;
Source.Top:=0;
Source.Right:=Image1.Width div 2;
Source.Bottom:=Image1.Height;

// dibuja la región copiada
Image2.Canvas.CopyRect(dest, image1.Canvas, Source);

[MON___]

¡Muchas gracias, xEsk; esa es la solución (CopyRect) que buscaba y que no recordaba! Un saludo