ImageEnView1.IO.LoadFromFile( ImageEnView1.IO.ExecuteOpenDialog() );
  ImageEnView1.IEBitmap.PixelFormat := ie8g;
  ImageEnView1.Update();
  ImageEnView2.IEBitMap.Assign(ImageEnView1.IEBitmap);
  //The two images are right if I comment the rest of the code 
  Img1:= ImageEnView1.IEBitMap.GetIEVisionImage;//I link ImageEnView1 and Img1
  Img2:= ImageEnView2.IEBitMap.GetIEVisionImage;//I link ImageEnView2 and Img2
  Img2.setZero;
  ImageEnView2.Update;//The ImageEnView2 is black if I comment the rest of the code 
  Img2.operatorASSIGN(Img1);
  ImageEnView2.Update;// The imageEnView2 is always black!!!!

procedure TMainForm.TestMenuItem1Click(Sender: TObject);
var
 Img:TIEVIsionImage;
begin
  // An ImageEnView is created in the main window
  Img.create(ImageEnView.IEBitmap.Width, ImageEnView1.IEBitmap.Height, ievUINT8, 3);//I create an empty TIEVisonImage with the right size et richt channels
  Img.setValue(IEVisionScalar(127, 127, 127));// I color it in grey
  //??????? How to say that the ImageEnView.IEBitmap.GetIEVisionImage is precisely Img 
  ImageEnView.Update;
end;

procedure TMainForm.Test2MenuItemClick(Sender: TObject);
var
  BorderType:TIEVisionBorderType;
  Img1,Img2:TIEVisionImage;
begin
  ImageEnView1.IO.LoadFromFile( ImageEnView1.IO.ExecuteOpenDialog() ); //Original Image
  ImageEnView2.IEBitmap.Assign(ImageEnView1.IEBitmap); // Transformed Image
  Img1:=ImageEnView1.IEBitmap.GetIEVisionImage;
  Img2:=ImageEnView2.IEBitmap.GetIEVisionImage;

  BorderType:=ievBORDER_CONSTANT;// = 0,
//  BorderType:=ievBORDER_REPLICATE;// = 1,
//  BorderType:=ievBORDER_REFLECT;// = 2,
//  BorderType:=ievBORDER_WRAP;// = 3,
//  BorderType:=ievBORDER_REFLECT_101;// = 4,
//  BorderType:=ievBORDER_TRANSPARENT;// = 5,
//  BorderType:=ievBORDER_ISOLATED;// = 16

// Only the three first values work, the next four give a little understandable message "Erreur non spécifiée" in french meaning "Unknown Error" in english

  Img1.Blur(Img2,IEVisionSize(20,20), IEVisionPoint(-1, -1),BorderType);
  ImageEnView2.Update;
end;

function findContours(mode: TIEVisionContourRetrMode; method: TIEVisionContourApproxMethod; offset: TIEVisionPoint): TIEVisionVectorObjRef; safecall;

Procedure TMainForm.Test3MenuItemClick(Sender:TObject);
Var
  Img1:TIEVisionImage;
  ObjRef:TIEVisionVectorObjRef;
Begin
  ImageEnView1.IO.LoadFromFile(ImageEnView1.IO.ExecuteOpenDialog()); // Original Image
  Img1:=ImageEnView1.IEBitmap.GetIEVisionImage;
  ObjRef:=Img1.FindContours(IevEXTERNAL,IevCHAIN_CODE,IEVisionPoint(0,0));
End;

Procedure TMainForm.Test3MenuItemClick(Sender:TObject);
Var
  Img1:TIEVisionImage;
  ObjRef:TIEVisionVectorObjRef;
  ContourRetrMode:TIEVisionContourRetrMode;
  ContourApproxMethod:TIEVisionContourApproxMethod ;
  Num:integer;
Begin
    ContourRetrMode:=ievLIST;// = 1,
    ContourApproxMethod:=ievCHAIN_APPROX_NONE;// = 1,

  ImageEnView1.IO.LoadFromFile(ImageEnView1.IO.ExecuteOpenDialog()); // Original Image
  Img1:=ImageEnView1.IEBitmap.GetIEVisionImage;
  case ord(Img1.getChannelFormat)of
    0:ShowMessage('UINT8');
    1:ShowMessage('SINT8');
    2:ShowMessage('UINT16');
    3:ShowMessage('SINT16');
    4:ShowMessage('SINT32');
    5:ShowMessage('FLOAT32');
    6:ShowMessage('FLOAT64');
    else ShowMessage('Unknown');
  end;
 ObjRef:=Img1.FindContours(ContourRetrMode,ContourApproxMethod,IEVisionPoint(0,0));