Recortar Una Imagen

[Jose Roman]

Gracias por tu ayuda radenf, hasta ahora me logro parte del cometido, solo tengo el inconveniente de que me copia los bordes punteados:


Al igual que si abro el archivo guardado (foto.bmp) tambien se nota el borde punteado que se ve en la imagen derecha, te adjunto el código para ver si me ayudas donde esta el error:

Código Delphi [-]
procedure TwLoadImg.btReloadClick(Sender: TObject);
Var
  New : TRect;
  Wic:TWicImage;
  ImageM: TImage;
begin
  // Oculto bordes de TSizeRect
  srImg.NormalPen.Mode  := pmXor;
  srImg.NormalPen.Style := psClear;
  ImageM     := TImage.Create(Self);
  Wic        := TWICImage.Create;
  New.Left   := srImg.ClientRect.Left;
  New.Top    := srImg.ClientRect.Top;
  New.Right  := srImg.ClientRect.Right;
  New.Bottom := srImg.ClientRect.Bottom;
  try
    ImageM.Visible        := False;
    ImageM.Left           := srImg.Left;
    ImageM.Top            := srImg.Top;
    ImageM.Height         := srImg.Height;
    ImageM.Width          := srImg.Width;
    ImageM.Canvas.CopyRect(New,srImg.Canvas,New);
    ImageM.Picture.SaveToFile(ExtractFilePath(Application.ExeName)+'Foto.bmp');
    Wic.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Foto.bmp');
    imPrel.Picture.Bitmap.Assign(Wic);
  finally
    Wic.Free;
    ImageM.Free;
    // Enseño bordes del TSizeRect
    srImg.NormalPen.Mode  := pmCopy;
    srImg.NormalPen.Style := psDot;
  end;
end;