"Cortar" un bitmap

[[xEsk]]

Creo que seria mas fácil usando:

Código Delphi [-]
procedure TCanvas.CopyRect(const Dest: TRect; Canvas: TCanvas;
  const Source: TRect);

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

Código Delphi [-]
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);