bmp := TBitmap.Create;
  try
    bmp.SetSize(200, 200);
    bmp.PixelFormat := pf32bit;
    bmp.HandleType := bmDIB;
    bmp.Canvas.Brush.Color := clLime;
    bmp.Canvas.FillRect(rect(0,0,200,200));

    ImageEnView1.LegacyBitmap := true;
    ImageEnView1.Bitmap.Assign(bmp);
    ImageEnView1.Update;

    ImageEnView1.SelectionBase := iesbBitmap;
    ImageEnView1.Select (10,10, 190, 190);
    ImageEnView1.Proc.SelCopyToClip();
  finally
    bmp.Free;
  end;