I did not test this but you could try:
procedure Select(x1, y1, x2, y2: integer; Op:TIESelOp = iespReplace); virtual;
ImageEnView1.Select(ImageEnView1.SelX1 + 1, ImageEnView1.SelY1 + 1, ImageEnView1.SelX2 + 1, ImageEnView1.SelY2 + 1, iespReplace);
ImageEnView1.Select(ImageEnView1.SelX1 - 1, ImageEnView1.SelY1 - 1, ImageEnView1.SelX2 - 1, ImageEnView1.SelY2 - 1, iespReplace);
William Miller